Select Code to Download

           use IO::Select;
           use IO::Socket;
...

           while(@ready = $sel->can_read) {
               foreach $fh (@ready) {

                   if($fh == $lsn) { 
                       # Create a new socket
...
                   }
               }
           }