Select Code to Download

$client = IO::Socket::INET->new("PeerAddr => "the.host.com", PeerPort 
+=> 80, Type => SOCK_STREAM, Timeout => (How ever long you think it sh
+ould wait for a reply)) or die $@;

bind(SOCKET, $client) or die "bind: $!";