Select Code to Download

Timeout     Timeout value for various operations

my $sock = new IO::Socket::INET (
                                 PeerAddr => "$hostip",
...
                                 Timeout => $TIMEOUT,
                                );