Investigate IO::Poll. If it works on your platform (non-BSD Unix?), it *may* provide much better performance with a large number of open sockets.

Caveat: I have not tried this myself. In fact, there is a decent chance I am *completely* mis-remembering select/poll distinctions.