# 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);