Help for this page

Select Code to Download


  1. or download this
    $ perl test.pl 2 perl -e'system("sleep 4; echo My work is done")'
timed out
...
timed out
sent kill to 1
$?=15
  2. or download this
    eval{
     local $SIG{ALRM} = sub {die "alarm\n"};
...
     waitpid($cpid, 0);
     alarm 0;
};
  3. or download this
    $ perl fixed.pl 2 perl -e'system("sleep 4; echo My work is done")'
timed out
sent kill to 1
$?=15