Help for this page

Select Code to Download

Select or download this

my $filetime = Win32::FileTime->new($file);
my ($year,$month,$day,$hour,$minute) = 
    $filetime->Create (qw[year month day hour minute]);