or download this
>perl -MIO::Socket::INET -e"my $s = IO::Socket::INET->new(PeerAddr=>sh
+ift, PeerPort=>80); $s->print(<>); print while <$s>;" 216.92.34.251
GET / HTTP/1.1
...
Keep-Alive: timeout=5, max=100
Connection: Keep-Alive
Content-Type: text/plain