use strict;
use IO::Socket qw(:DEFAULT :crlf);

$/ = CRLF . CRLF;

my $sock = IO::Socket::INET->new(
   Proto    => 'tcp',
   PeerAddr => 'localhost',
   PeerPort => 'http(80)',
);

print $sock "GET /cgi-bin/simple.cgi?foo=hello%20world",$/;

my $header = <$sock>;
print $header;

my $data;
print $data while read($sock,$data,1024) > 0;