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:\>