use IO::Socket;
$remote = IO::Socket::INET→new( Proto ⇒ “tcp”, PeerAddr ⇒ $host, Timeout ⇒ “5”, PeerPort ⇒ “http(80)” );
unless ($remote) { die “cannot connect to http daemon on $host” }

      $remote->autoflush(1);\\
      print $remote "GET $document HTTP/1.0\n\n";\\
      while ( <$remote> ) { print }\\
      close $remote;\\