#!/usr/bin/perl -w
use strict;

use IO::Socket::INET;
my $sock = IO::Socket::INET->new(PeerAddr => 'www.google.de',
                                 PeerPort => 'http(80)',
                                 Proto    => 'tcp');

die if ( !$sock );

print $sock "GET http://www.google.de/index.html\n";


my $len = 0;
my $file = '';

while ( defined($sock) && ( my $c = $sock->getc()) && ($len<512)){
		print $c,"\n\n";
		$len+=length $c;
		$file .= $c;
}

print $file;