$socket->timeout(5);

while ( 1 ) {
   warn "listen for incoming requests";
   while (my $c = $socket->accept) {
      warn "request comes in from ", $c->peerhost;
   }
   warn "socket timeout";
}