Help for this page

Select Code to Download


  1. or download this
    $SIG{ALRM} = sub { die "TIMEOUT" };
eval {
...
};

if ($@ =~ /TIMEOUT/)  {  # do stuff }
  2. or download this
    open COMMAND, "$command |" or die "Can't fork: $!\n";
eval {
...
    alarm(OFF);
};
close COMMAND;  #notice no 'or die stuff' here anymore