+sub gettime {
+ my ($sec, $usec);
+
+ eval {
+ require Time::HiRes;
+ ($sec, $usec) = Time::HiRes::gettimeofday();
+ };
+
+ unless (defined($sec) && defined($usec)) {
+ my $tv_t = ($Config{'longsize'} == 8) ? 'qq' : 'll';
+ my $tv = pack $tv_t, 0, 0;
+
+ eval {
+ require 'syscall.ph';
+ syscall(SYS_gettimeofday(), $tv, 0);
+ };
+
+ ($sec, $usec) = unpack $tv_t, $tv;
+ }
+
+ return ($sec, $usec);
+}
+