While you have received the answer above, I would also direct you to have a look at the Win32::FileTime module which also offers an interface to determining file stamp times - This code was originally posted to this site here by thunders.

Using this module, your code could look something like this:

use Win32::FileTime;

my $filetime = Win32::FileTime->new( $filename );
printf( "%4d/%02d/%02d\n", $filetime->Modify( 'year', 'month', 'day' )
+ );
[download]

The difference between this module and the example using stat described above is that this module employs native Win32 API's to determine this information and handles the VT_FILETIME data type returned.

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000010101"))'