Select Code to Download

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

perldoc IO::Select

...
                 }
             }
         }