my $winsystime = pack("ssssssss", $wyear, $wmonth, $wdayofweek, $wday, $whour, $wminute, $wsecond, $wmilliseconds);