#!/usr/bin/perl
# busyloop
use Time::HiRes 'time';
print STDERR "$0 @ARGV\n";
my $my_run = shift;
my ($me, $child) = @ARGV;
my $start = time;
until (time >= $start + $my_run) { 
  # Busy loop 
}
exit unless @ARGV;
system($0, @ARGV);
printf (" u: %.2f  s: %.2f\ncu: %.2f cs: %.2f\n", times());