#!/usr/bin/perl -w

use strict;
use IO::Socket;

my $sock = IO::Socket::INET->new(PeerAddr => 'www.perlmonks.org',
                                 PeerPort => 'http(80)',
                                 Proto    => 'tcp') or die "Ack! No socket!";

$sock->write("GET /\r\n\r\n");

my $foo;
$sock->read($foo, 1000000);
print $foo."\n";

##</code><code>##

FILES=255