perl -we 'defined(syscall 78, ($d = pack "x100"), 0) or die "panic: gettimeofday failed $!"; ($s, $u) = unpack "l!l!", $d; printf "%d.%06d\n", $s, $u;'