my $torun = shift(@ARGV);
if ($torun) {
utime time, time, $torun;
sleep 1;
my $pid = `$ENV{SPEEDY} $torun`;
sleep 1;
print $pid;
}
print "$$\n";
my $torun = shift(@ARGV);
if ($torun) {
utime time, time, $torun;
sleep 1;
my $pid = `$ENV{SPEEDY} $torun`;
sleep 1;
print $pid;
}
print "$$\n";