Perl Text Datei in Excel einlesen Spalte als Datum formatieren

Hallo,
in einem Perl-Script starte ich eine Datenbankabfrage, das Ergebniss wird mir in eine Textdatei geschrieben.
Diese Textdatei wird dann in ein Exceldokument importiert. Das klappt wunderbar.
(Hier die wichtigsten Ausschnitte aus dem Script)

use Mysql;
use Spreadsheet::WriteExcel;
use DBI;

my $avlcnsamples="D:/TEMP/CN-AVL-Muster.txt";
my $excelfile2 = "D:/TEMP/AVL-CN-Muster.xls";

1. Excel Datei erstellen

$excel = new Spreadsheet::WriteExcel( "$excelfile2" );

1. Arbeitsmappe hinzufuegen

$sheet = $excel -> addworksheet(AVL);

1. Textdatei importieren

$row = 1;
open(DATEI, $avlcnsamples) or die "Kann Textdatei nicht oeffnen: $!";
while(<DATEI>)
{
chomp;

1. Split on Dach
@fld = split(/\^/, $_);
$col = 0;
foreach $token (@Fld) {
$sheet -> write($row, $col, $token);
$col++;
}
$row++;
}
close(DATEI);

In der Textdatei ist auch ein Datum enthalten JJJJMMTT. Das soll dann auch in Excel in der entsprechenden Spalte (F) so formatiert werden.
Ich denke das muss beim Importieren der Textdatei irgendwie erfolgen, den wenn ich das später probiere, erhalte ich nur ########## als Ergebniss in der Spalte.

Eine Zeile aus der Textdatei------------------------------------------hier ist datum
195619^20^2302721800^Motor KE50-40^500.00000^20171026^INTERN^


1. Formatierung Datum Desried Date
$formatdate = $excel -> add_format();
$formatdate -> set_num_format('dd.mm.yyyy');
$sheet -> write( 1, 5, $formatdate);

Vielleicht kann mir jemand weiter helfen, danke.