my $FileTimeToSystemTime = new Win32::API('Kernel32.dll', 'FileTimeToSystemTime',['P','P'],'I');

sub FileTimeToSystemTime {
  my $filetime=shift;
  my $systemtime="\0" x (2*8);

  $FileTimeToSystemTime->Call($filetime, $systemtime) or return;

  return unpack( 'S8', $systemtime);
}