# Activate socket
    $read_handles = IO::Select->new();
    $read_handles->add($cfg::listen_socket);


    # Main loop: check reads/accepts, check writes, check ready to process

    # Loop forever, listening for incoming msgs
    while (1)
    {
        # check for new information on the connections we have
        # NB: use blocking handles.
        ($new_read_handles) =
                        IO::Select->select($read_handles, undef, undef);

##</code><code>##

    $cfg::listen_socket =
                IO::Socket::INET->new(LocalPort => $cfg::params{'RPS_PORT'},
                                      Type      => SOCK_STREAM,
                                      Proto     => 'tcp',
                                      Listen    => SOMAXCONN,
                                      Reuse     => 1,
                                      Blocking  => 1 )  # Blocking is on