Select Code to Download

use IO::Socket::INET;
use IO::Select;
...
    }
    print $select->count(), "\n";
}

use IO::Socket::INET;
use IO::Select;
...
    my $peer = $socket->recv($packet_rcvd, 50);
    print "packet $packet_rcvd recvd at port " . $socket->sockport() .
+ "\n";
}