#!/usr/bin/perl
use Socket;
$host="www.google.com";
socket(S,PF_INET,SOCK_STREAM,0);
$s=sockaddr_in(80,inet_aton($host));
if (connect(S,$s)) {
  print "connected to $host\n";
  print S "GET \/ HTTP\/1.0\n\n";
  read(S,$data,100) || die;
  close(S);
} else { die "connect failed\n" }

print $data;