Select Code to Download

use Win32::FileTime;

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