In an attempt to trace the problem, I modified my code a bit for the sub handleData()

Here is the relative lines from the sub:

my $tid = threads->tid();
my $fno = $Q->dequeue();
last if $fno eq 'STOP';
$log->warning("Thread ($tid) : fileno: $fno");
open my $socket, '+<&='.$fno or dienice("Thread ($tid) could not reope
+n socket: $!");
[download]

When I try to connect from client side, I see this in the server log:

Thread (1) : fileno: 5
Thread (1) could not reopen socket: Bad file descriptor at line 152
[download]

Which is the "open my $socket, '+<&='.$fno" Line..
If I try connecting again, the fileno is still 5, only the thread number changes (1..3 when running only 3 listener threads) and each thread is "terminated abnormally" due to this error.

Other instance, I get this in the log (both lines returned on one connection only)

Thread (2) : fileno: ÆD²©ê
Thread (3) : fileno: 5
[download]

Or this:

Thread (1) : fileno: 5
Thread (2) : fileno: ÆýD²©ê
[download]

And the client gets nothing back to its request.

Running:
Perl 5.8.5 and Thread::Queue 2.11
OS: Linux