my @rhSet = IO::Select->select($readSet, undef, undef, 0);
foreach my $rh (@{$rhSet[0]}) {

##</code><code>##

my @rhSet = IO::Select->select($readSet, undef, undef, 0);
foreach my $rh (@{$rhSet[0]}) {

##</code><code>##

my $connection = $sock->accept();
$readSet->add($connection);