I try to write a client server application based on Net::Server::PreFork. The communications are going through but the problem is that both the client and the server waits for new line \n before they process the input.
Note that this is bidirectional - client send something to server, and then waits for answer on the same socket.

I expect to have large amounts of data going forth and back between the server and the clients. The data may contain new lines so it mess my logic.
I also expect many many connections so I think it's best to keep going with the PreFork.

Here is the server code and the client code. Please help me find what am I doing wrong.
Any suggestion is welcome... Thanks!

Server

#!/usr/bin/perl -w -T

package MyPackage;

use strict;
use base qw(Net::Server::PreFork); 
MyPackage->run({port => 20205, no_client_stdout => 1});

sub process_request {
    my $self = shift;
    eval {
        local $SIG{'ALRM'} = sub { die "Timed Out!\n" };
        my $timeout = 5; 
        my $sock = $self->{server}->{client};
        $sock->autoflush(1);
        $|=1;
        
        while (defined (my $buf = <$sock>)) {
            $buf =~ s/\r?\n$//;
            #sleep(5);
            print $sock "client said '$buf'\r\n";
            alarm($timeout);
            $sock->close();
        }
        alarm(0);
    };
    if ($@ =~ /timed out/i) {
        print STDOUT "Timed Out.\r\n";
        return;
    }
}
1;
[download]

Client

#!/usr/bin/perl -w
use IO::Socket::INET;

my $sock = new IO::Socket::INET (Blocking => 1, PeerAddr => 'localhost
+', PeerPort => '20205', Proto => 'tcp'); 
my $clean_content = "";
die "Could not create socket: $!\n" unless $sock; 
$sock->autoflush(1);
$|=1;
$sock->send("message to server\r\n");

while (<$sock>) {
    print $_;
}

close $sock;
[download]