http://qs321.pair.com?node_id=646885


in reply to Re^3: Perl Socket time out too small
in thread Perl Socket time out too small

It's possible to call timeout() on $sock as well.
$sock->timeout(60);
If you want to know whether it runs on a timeout or not:
while ( 1 ) { while (my $r = $sock->accept) { # process } if ($! == &Errno::ETIMEDOUT) { warn "Server runs on a timeout" } }