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