Help for this page

Select Code to Download

Select or download this

my $error;
sub timeout {
...
...

$SIG{ALRM} = \&timeout;