Note that IO::Socket file handles are by default set with 'autoflush' enabled, so it's not necessary to do that here, especially not by using the select/$|=1/select method. We are dealing with objects, you know. :) $client->autoflush(1)

In addition, you might be interested in the 'can_read' method of IO::Select instead of calling select directly. This is a little "friendlier":

my @readable = $read->can_read;
foreach $fh (@readable) {
   ...
}
[download]