my @info = stat "file.txt";
print $info[8];

my $atime = (-A "file.txt");
my $mtime = (-M "file.txt");
print $atime;
print $mtime;

C:\>copy con test.txt
Test
^Z
        1 Datei(en) kopiert.

C:\>perl
$tm = localtime((stat("test.txt"))[8]);
print $tm;
^Z
Thu Mar 11 01:04:30 2004
C:\>del test.txt

C:\>copy con test.txt
Test
^Z
        1 Datei(en) kopiert.

C:\>perl
$tm = localtime((stat("test.txt"))[8]);
print $tm;
^Z
Thu Mar 11 01:05:59 2004
C:\>