[ale] Redirecting STDOUT in perl to a socket

[Christopher Fowler]

I've created a socket from a client usins:
$client = $server->accept();

I'm trying to redirect 0,1,2 with the following code:

*STDIN = $client;
*STDOUT = $client;
*STDERR = *STDOUT;

If I stay in the perl program all output goes to the socket.
The minute I do exec() the output goes to the TTY.  What is the correct
way to redirect those so they follow during an exec()?

Thanks,
Chris