#!/usr/bin/perl -w
    use strict;
    use IO::Socket;
    my $sock = IO::Socket::INET->new(
                        Proto    => "tcp",
                        PeerAddr => "www.metacrawler.com",
                        PeerPort => "80",
                    )
                  or die "cannot connect!";

    print $sock "GET /\r\n\r\n";
    while ( <$sock> ) { print }