Select Code to Download

   sub FileTimeToSystemTime ($)
    {
...
    unshift @retval, \@names;
    return @retval;
    }

    my ($names, $Year, $Month, $DayOfWeek, $Day, $Hour, $Minute, $Seco
+nd, $Milliseconds)= FileTimeToSystemTime ($int64);

my $value= \(FileTimeToSystemTime ($int64));
my $Day= $value->{Day};
# ... etc.