Select Code to Download

my ($r_ready, $w_ready) = IO::Select::select($r_sel, $w_sel);

...
foreach my $sock (@$w_ready) {
   # ...
}