Help for this page

Select Code to Download

Select or download this

$SIG{ALRM} = sub{die "timeout"};
eval{
...
  $line_in = <$socket>;
  alarm(0);
};