or download this
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";