Help for this page
> perl -v 5.8.4
eval { local $SIG{ALRM} = sub { die "Network Timeout/Error\n" }; ... return (-1); }