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

#$fw=$FileWanted 
my ($fwatime, $fwmtime, $fwctime) = GetFileTime (fix_dos($frfn));
SetFileTime (fix2dos($tofn), $fwatime, $fwmtime, $fwctime);