use IO::Socket;

$www = IO::Socket::INET->new(
   PeerAddr => 'some_host_or_ip',
   PeerPort => '80_or_whatever_port_http_is_on',
   Proto    => 'tcp',
   Type     => SOCK_STREAM
) || die "Cant connect to some_host_or_ip\n$!\n";

print $www "GET / HTTP/1.0\n\n";

while (<$www>) {
   push(@response, $_);
}

close($www);
print "Got Back\n";
for (@response) {
    print;
}