my( $day, $month, $year )= FileTimeToSystemTime(
    $int64, qw(day month year) );
my @date= FileTimeToSystemTime( $int64 );
FileTimeToSystemTime( $int64, \(my %date) );