my $file    = "sqlnet.log";
my $logpath = "D:/temp/";
my $time    = (stat($logpath . $file))[9];
my @info    = localtime $zeitstempel;
$info[4]++;      #Monat +1(++), weil er er sonst von 0 bis 11 gezählt wird
$info[5]+=1900;   #Jahr +1900 weil time nur die vergangene Zeit ab 1900 ausgibt
$stamp =sprintf("%4d.%02d.%02d %02d:%02d:%02d",@info[5,4,3,2,1,0]);
print "$file $zeitstempel\n";