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