GET a url continually

gistfile1.pl

# dont point this at anyone

use IO::Socket;
use strict;

my ($hash, $result);
my $i = 1;
my $line;
my $data;

$data = "GET / HTTP/1.1\nHost: www.google.com\n";

while(1){

        $hash->{$i} = new IO::Socket::INET (
                PeerAddr => '127.0.0.1',
                PeerPort => '80',
                Proto => 'tcp',
                Timeout => 1,
                Blocking => 0
        ) or die "ERROR in Socket Creation : $!\n";

        $hash->{$i}->autoflush(1);

        #print "TCP Connection Success.\n";

        $result = $hash->{$i};

        print $result "$data\n";

        while($line = <$result>){
                print $line . "\n";
        }

        $hash->{$i}->close();


$i++;
}