while( 1 ) {
        my( $readers, $writers )= IO::Select->select( $sel, $sel, undef );
        foreach my $socket (  @$readers  ) {
            if(  $socket == $server_sock  ) {
                new_socket( $socket );
            } elsif(  defined($socket)  ) {
                close_socket($socket);
            }
        }
        foreach my $socket (  @$writers  ) {
            gen_chars( $socket );
        }
    }