on_connect => sub {
            # Begin interacting with the server.
			my ( $kernel, $client_socket ) = @_[KERNEL, ARG0 ];
            $_[HEAP]{client}  = POE::Wheel::ReadWrite->new(
                Handle     => $client_socket,
                InputEvent => "on_receive_data",
                ErrorEvent => "on_connect_error",
            );

            $_[HEAP]{client}->put( "login monitor monitor", "log on", );
			$kernel->yield( 'keepalive', $_[HEAP]{client} );
        },

##</code><code>##

$kernel->yield( 'keepalive', $_[HEAP]{client} ); 

##</code><code>##

delete $_[HEAP]{client}{$wheel_id};