There are many solutions. The simplest is certainly a forking server. After accept()ing a new client the process calls fork(). The parent process closes the client connection and waits for the next client while the child handles the connection.

Another way is to use select() (or IO::Select) with nonblocking IO. There are many examples on the Internet I believe.

Then there are various event modules that do basically the same as select() but often more effectively. These come to mind: Event, Event::Lib, EV, POE, AnyEvent

Then there are perl's ithreads. (use threads;)

And in the end there is Coro. If I where you I'd go either with this one or code a forking server.

Torsten

my $readable = IO::Select->new;
$readable->add($oneSock, $twoSock, $redSock, $blueSock);
while (not $done)
{
  my $ready = IO::Select->select($readable);
  foreach my $socket (@$ready)
  {
    # Deal with whatever $socket has to say
  }
}
[download]

use strict;
use IO::Socket;
use IO::Lambda qw(:all);
use IO::Lambda::Socket qw(:all);

my $server = IO::Socket::INET-> new(
    Listen    => 5,
    LocalPort => 10000,
    Blocking  => 0,
    ReuseAddr => 1,
);
die $! unless $server;

lambda {
    context $server;
    accept {
        # socket with an incoming connection
        my $conn = shift;
        # tell the loop to accept() again
        again;

        unless ( ref($conn)) {
            warn "accept() error:$conn\n" unless ref($conn);
            return;
        }

        # now read all from the new connection
        context $conn;
    readable {
        my $buf;
        my $n = sysread( $conn, $buf, 65536);
        unless ( defined $n) {
            warn "error reading:$!\n";
        } elsif ( $n == 0) {
            warn "connection closed\n";
        } else {
            print $buf;
            again;
        }
    }}
}-> wait;
[download]

Update: I thought you had mentioned you were using File::Tail. Ignore this post, it won't help you since File::Tail won't work with sockets. You need IO::Select