Install["Sockets"]

?Sockets`*

?SocketConnect

sock = SocketConnect["www.sun.com", 80]

SocketWrite[sock, "GET / HTTP/1.0\n\n"];

\(While[\((line = SocketRead[sock, 1000])\) != "", 
	
      WriteString[$Output, line]]\)