#!/usr/bin/perl
-require 'sys/syscall.ph';
+#require 'sys/syscall.ph';
$|=1;
$total = 1;
while(<FD>) {
$c += length($_);
}
- $TIMEVAL_T = "LL";
- $now = pack($TIMEVAL_T, ());
- syscall(&SYS_gettimeofday, $now, 0) != -1 or die "gettimeofday: $!";
- @now = unpack($TIMEVAL_T, $now);
+# $TIMEVAL_T = "LL";
+# $now = pack($TIMEVAL_T, ());
+# syscall(&SYS_gettimeofday, $now, 0) != -1 or die "gettimeofday: $!";
+# @now = unpack($TIMEVAL_T, $now);
print "Client $i exiting ($c chars).\n";
exit(0);
}