use IO::Socket;   # distributed with Perl

my $web = new IO::Socket::INET("www.example.com:80")
  or die "Couldn't connect: $@";
print $web "GET /some/file HTTP/1.0\n";
print $web "Host: www.example.com\n\n";

$/='';
my $results = <$web>;