Perl中的基本网络聊天应用程序

我正在尝试在Perl中编写一个基本的网络聊天应用程序用于学习目的.我目前有一个服务器和客户端程序,几乎按照我的要求运行.多个客户端可以连接到服务器并向其发送消息.但是,我不确定如何将消息从一个客户端发送到另一个客户端,并希望在这里推进正确的方向.这是我到目前为止的代码,想法？

注意：这是我第一次尝试使用网络或使用Perl进行正确的项目,因此任何其他关于如何编写它的指导也将受到赞赏.

chat_server.pl

#!/usr/bin/perl -w
# chat_server.pl
use strict;
use IO::Socket::INET;

my $port = shift or die "Port required!n";
my $socket = IO::Socket::INET->new(
        LocalPort   => $port,Proto       => 'tcp',Listen      => SOMAXCONN
    ) or die "Can't create socket: $!!n";
my $child;

print "Listening for clients on $port...n";
REQUEST:
while(my $client = $socket->accept) {
    my $addr = gethostbyaddr($client->peeraddr,AF_INET);
    my $port = $client->peerport;

    if($child = fork) {
        print "New connection from $addr:$portn";
        close $client;
        next REQUEST;
    } die "fork failed!n" unless defined $child;

    while (<$client>) {
        print "[$addr:$port] says: $_";
        print $client "[$addr:$port] says: $_";
    }   
}
close $socket;

chat_client.pl

#!/usr/bin/perl -w
# chat_client.pl
use strict;
use IO::Socket::INET;

my $port            = shift or die "No portn";
my $server          = shift or die "No servern";
my $client_socket   = IO::Socket::INET->new(
        PeerPort    =>  $port,PeerAddr    =>  $server,Proto       =>  'tcp'
    ) or die "Can't create send socket: $!!n";

my $child;

if($child = fork) {
    while(1) {
        sleep(1);
        print scalar <$client_socket>;
    }
}

die "fork failed!n" unless defined $child;
print "Connected to $server:$port!n";

do {
    print "> ";
    print $client_socket $_ if defined $_;
} while(<STDIN>);

print "Closing connection";
close $client_socket;

my $pipe = IO::Pipe->new();
if($pid = fork()) { # Parent
        $pipe->reader();
        while(<$pipe>) {
        ...
        }
    }
    elsif(defined $pid) { # Child
        $pipe->writer();
        print $pipe ...
    }