Select Code to Download

 $sockclient = new IO::Socket::INET (PeerAddr => $remote_host,
                                  PeerPort => $remote_port,
                                  Proto    => 'tcp',
                                 );
    die "Socket could not be created. Reason: $!\n" unless $sockclient
+;

foreach my $hostvar (@remote_host)
    {
...
    }
    close ($sockserver);
}