Help for this page

Select Code to Download

Select or download this
```
$sock->timeout(60);
```

Select or download this

while ( 1 ) {
    while (my $r = $sock->accept) {
        # process
...
        warn "Server runs on a timeout"
    }
}