Help for this page

Select Code to Download

Select or download this

eval {
  local $SIG{ALRM} = sub { die "alarm\n"; }
...
else {
  # worked
}