use Win32API::File::Time qw{:win};

my ($fwatime, $fwmtime, $fwctime) = GetFileTime ($fromfn);
SetFileTime ($tofn, $fwatime, $fwmtime, $fwctime);