Select Code to Download

use Socket qw( PF_INET SOCK_STREAM inet_aton );

...
my $old_fh = select(SOCKET);
$|=1;
select($old_fh);

use IO::Socket::INET qw( );

...
   PeerAddr => $host,
   PeerPort => $port,
) or die("Unable to create client socket: $!\n");

use IO::Socket::INET qw( );
use Socket           qw( SOMAXCONN );
...
   ReuseAddr => 1,
   Listen    => SOMAXCONN,
) or die("Unable to create server socket: $!\n");