my $tm = time;  print $tm - $oldtm;  $oldtm = $tm;