use IO::Socket;
use strict;
use warnings;

my $sock=new IO::Socket::INET( PeerAddr => 'www.foo.org',
                PeerPort => 80,
                Proto => 'tcp',
                Type   => SOCK_STREAM);
die "No socket" unless $sock;
print $sock "GET http://www.foo.org 1.0\n\n";
my $answer=join('', <$sock>);