# The forwarder has received data from its server side.  Pass that
# through to the client.

sub forwarder_server_input {
    my ( $heap, $input ) = @_[ HEAP, ARG0 ];
    print "Received the following data from the server and attempt to send them to the client\n";
    print "==\n$input\n=="; #this is the response from the server, but the client somehow can't receive it.
    exists( $heap->{wheel_client} ) and $heap->{wheel_client}->put($input);
    #maybe the wheel_client object is gone?  If so, how do I keep it alive?
}