hehe pushed shortcut for sending incedentially while writing the last message, here the missing part:

$SIG{CHLD} = sub { while (wait() > 0) {} };

while (my $client = $proxy->accept()) {

    my $kidpid = fork();  die "cannot fork" unless defined $kidpid;

    if ($kidpid) {
        close $client;  # no longer needed in parent
        next;
    }
    close $proxy;       # no longer needed in child

-- 
kazaam <kazaam / oleco.net>