use Time::HiRes qw(gettimeofday);
my $t0 = [gettimeofday];
print "t0: ". localtime($t0) ."\n";
print "trc msec: ". localtime(1068916117987100) ."\n";
print "trc sec: ". localtime(1068916117) ."\n";