Select Code to Download

    # Activate socket
    $read_handles = IO::Select->new();
...
        # NB: use blocking handles.
        ($new_read_handles) =
                        IO::Select->select($read_handles, undef, undef
+);

    $cfg::listen_socket =
                IO::Socket::INET->new(LocalPort => $cfg::params{'RPS_P
+ORT'},
...
                                      Listen    => SOMAXCONN,
                                      Reuse     => 1,
                                      Blocking  => 1 )  # Blocking is 
+on