my $client = $server->accept;
open(STDIN,  "<&=", $client) || die "Couldn't dup client to stdin";
open(STDOUT, ">&=", $client) || die "Couldn't dup client to stdout";
print "The client should see this STDOUT message.\n";
print $client "The client should see this SOCKET message.\n";

##</code><code>##

$ nc --ssl localhost 12345
The client should see this SOCKET message