#!/usr/bin/perl -w

use strict;
use IO::Socket::INET;

my $socket;

$socket = IO::Socket::INET->new(PeerAddr => '127.0.0.1',
                                    PeerPort => 'http(80)',
				Timeout => 5);
unless ($socket) {print 'Dead Socket'; exit;}

print $socket "GET / HTTP/1.0\n\n";
my @lines = <$socket>;
my $line = '';

until ($line =~ /^\r?\n$/m) {$line = shift(@lines); print $line; sleep(2);}

print @lines;


close ($socket);