my $ft = pack "LL", 0x89f625f0,0x01c21315;
printtime $ft;