Help for this page

Select Code to Download

Select or download this

eval {
  local $SIG{ALRM} = sub { die "timeout" };
...
  connect(SOCKET, $paddr) || error();
  alarm(0);
};

Select or download this

#!perl

...
$@: Undefined subroutine &main::error called at 759131.pl line 6.

Terminating on signal SIGALRM(14)