Обмен данными между дочерними процессами в PERL. 0

Вот код, я не могу сделать что бы клиенты которые конектятся могли видеть сообщение друг друга, для конекта можна использовать telnet.

#!/usr/bin/perl
#use strict;
use diagnostics;
use Socket;
use IO::Handle;
use constant PORT => 44444;
my @child = ();
SERVER->autoflush(1);
socket(SERVER,AF_INET,SOCK_STREAM,scalar getprotobyname('tcp')) or die "socket() failed : $!\n";
setsockopt(SERVER,SOL_SOCKET,SO_REUSEADDR,1) or die "setsockopt() failed : $!\n";
my $sockIp = sockaddr_in(PORT,INADDR_ANY);
bind(SERVER,$sockIp) or die "bind() failed : $!\n";
listen(SERVER,SOMAXCONN) or die "listen() failed : $!\n";
print "Server port:",PORT,"\n";
pipe(R,W);
R->autoflush(1);
W->autoflush(1);
while(my $hisaddr = accept(CLIENT,SERVER)) {
    CLIENT->autoflush(1);
    next if $pid = fork();
    die "fork() failed : $!\n" unless defined($pid);
    close SERVER;
    close W;
    print while();
    close R;
    while() {
        chomp;
        print "[$$] Client say me : $_\n";
        print CLIENT "You PID=$$\n";
    }
    close CLIENT;
    exit(0);
} continue {
    close R;
    print W "OK\n";
    close W;
    print "[$$] Parent\n";
    close CLIENT;
}

Если законектился одн клиент, то все нормал, если более, ты вылетает еррор о том что уже те дескрипторы с которых нужна читать и записывать уже давно закрыты, как решить проблему?

$ ./server.pl
Server port:44444
[1101] Parent
OK
[1103] Client say me : 1
[1103] Client say me : 2
print() on closed filehandle W at ./ppc_s.pl line 38 (#1)
    (W closed) The filehandle you're printing on got itself closed sometime
    before now.  Check your control flow.
[1101] Parent
readline() on closed filehandle R at ./ppc_s.pl line 27 (#1)
    (W closed) The filehandle you're reading from got itself closed sometime
    before now.  Check your control flow.
[1105] Client say me : HELLO

как я пайпы не создавал или FIFO использовал и UNIX-сокеты, ошибочный результат один и тот же. Мне сказали что с форкам такая беда не получится, хотя я сомневаюсь. Грубо говря я пишу чат консольный, знаю что можна это решить при помощи IO::Select, но все же мне нужен этот вариант.

Может тут нужна блок где то делать, вообщем прошу помочь..