use strict;
use IO::Socket;

my $data;
my $port = 80;
my $host = 'www.google.com';

my $socket = IO::Socket::INET->new(
   Proto => 'tcp',
   PeerAddr => $host,
   PeerPort => $port,
) or die "socket failed: $@";

$socket->autoflush(1);

print STDERR "connected to host\n";
print $socket "GET / HTTP/1.0\n\n";

$socket->recv($data,100);

print $data;