Select Code to Download

while(@ready = $sel->can_read) {
        if($fh == $lsn) {
...
             }
         }
}

while(@ready = $sel->can_read) {
    foreach $fh (@ready) {
...
        print $rr;
    }
}