$sock = IO::Socket::INET->new(PeerAddr => 'www.perl.org',
                                       PeerPort => 'http(80)',
                                       Proto    => 'tcp');