< linux网络编程工具>>配套源码

				程序清单17-9：new_client.pl
				sub _new_client {
				        my $sock = $main_socket->accept();
				    my $conn = bless {
				          'sock' =>  $sock,
				          'state' => 'connected'
				    }, $g_pkg;
				      my $rcvd_notification_proc = &$g_login_proc ($conn);
				  if ($rcvd_notification_proc) {
				          $conn->{rcvd_notification_proc} = $rcvd_notification_proc;
				          my $callback = sub {_rcv($conn)};
				          set_event_handler ($sock, "read" => $callback);
				    } else {  # Login failed
				          $conn->disconnect();
				      }
				}