Help for this page

Select Code to Download

Select or download this

eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
...
else {
    # didn't
}