Help for this page

Select Code to Download

Select or download this

eval {
  local $SIG{ALRM} = sub {die "alarm here"};
...
  long_code();
  alarm(0);
}

Select or download this

eval {
  local $SIG{ALRM} = sub {die "alarm here"};
...
}
alarm(0); # see QUESTION 1 below
die if $@ && $@ !~ /alarm here/;