#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) = @_;