Help for this page

Select Code to Download

Select or download this

eval {
    local $SIG{ALRM} = sub { die "alarm timeout" };
...
if ($@) {
    # Whatever you want on an alarm timeout
}

Select or download this

eval {
    local $SIG{ALRM} = sub { die "alarm timeout" };
...
if ($@) {
    # Whatever you want on an alarm timeout
}