Help for this page
$SIG{ALRM} = sub { die "TIMEDOUT" }; ... # execute $sub with timeout alarm(1); $sub->();
visible at -e line 1. invisible at -e line 1.