sub getTimeOfDay {
  syscall(116,$tod,0);
  my($s,$ms) = unpack("LL",$tod);
  return $s + $ms / 1000000;
}
$tod = "\0\0\0\0\0\0\0\0";