#New Server
     my ($pkg, $proto, $my_host, $my_port, $login_proc) = @_; 
 
 and 

    sub set_event_handler {
         shift unless ref($_[0]); # shift if first arg is package name
         my ($handle, %args) = @_; 

##</code><code>##

sub _new_client {
    my $sock = $main_socket;

##</code><code>##

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