#!/usr/bin/perl

use Socket;
#use IO::Socket;
$proto=getprotobyname('tcp');
socket(F,PF_INET,SOCK_STREAM,$proto);
$sin=sockaddr_in(80,inet_aton("localhost"));
connect(F,$sin);
select(F); $|=1; 
select(STDOUT);
print F "GET / HTTP/1.0\n\n";
while(<F>)
{
  print;

}