use IO::Socket;

my $socket = IO::Socket::INET->new( PeerAddr => 'www.perlmonks.org',
                                    PeerPort => 80,
                                    Proto => 'tcp' );