529>if( $ready_socket==$server ) {  # Incomming connection
530>  warn "Server socket ready, accepting...";
531>  my $new_connection=$server->accept();
532>  # make the socket non-blocking
533>  my $flags = fcntl($new_connection, F_GETFL, 0)
534>                 or die "cannot get flags for socket: $!\n";
.....