#!/usr/bin/perl -w

use IO::Socket;

$sock = new IO::Socket::INET (PeerAddr => 'www.perlmonks.org', PeerPort => 80, Proto => 'tcp');
die "Mess: $!" unless $sock;