Select Code to Download

$ perl test.pl 2 perl -e'system("sleep 4; echo My work is done")'
timed out
...
timed out
sent kill to 1
$?=15

eval{
     local $SIG{ALRM} = sub {die "alarm\n"};
...
     waitpid($cpid, 0);
     alarm 0;
};

$ perl fixed.pl 2 perl -e'system("sleep 4; echo My work is done")'
timed out
sent kill to 1
$?=15