Select Code to Download

     #New Server
     my ($pkg, $proto, $my_host, $my_port, $login_proc) = @_; 
...
    sub set_event_handler {
         shift unless ref($_[0]); # shift if first arg is package name
         my ($handle, %args) = @_;

sub _new_client {
    my $sock = $main_socket;

$main_socket = IO::Socket::INET->new (