sub filetimeToUnix{
    my ( $hi, $lo ) = @_;
    my $nanosecs =  $hi * 2**32 + $lo;
    return int( ($nanosecs - 116444736010000000) / 1E7 );
}