my $t_msec = unpack "Q", reverse "\x00\x00\x01\x16\x7a\x53\x7c\x80"; print scalar gmtime($t_msec/1000); # Mon Nov 26 05:00:00 2007