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 reopen socket: $!");

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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