my $torun = shift(@ARGV);

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