I apologize! Your code does work and that is why I linked to your code to show the world and you, that my 'changes' are mine, but still giving you credit for the initial code that put me in the right direction.
That said, the above code works 100% in non-treading environment for 14 days plus with 64 clients with 16 cores at 100%.
But with Perl threads on AIX and Linux, I haven't been able to keep the threaded code running for more than a day. I suspect the underlining thread libraries may be the problem or it's my lousy code.
I'm looking for a solution with 'IO::Select' until I find the problem with my treaded code. Again I apologize.
"Well done is better than well said." - Benjamin Franklin