Help for this page

Select Code to Download

Select or download this

use Sys::SigAction qw( set_sig_handler );
eval {
...
};
alarm 0;
print $@;