in reply to howto redirect STDOUT to $socket

IO::Select?