perl -MIO::Socket::INET -e'
   my $s = IO::Socket::INET->new("192.168.0.198:80");
   print $s "GET / HTTP/1.0\r\n";
   print $s "Host: 192.168.0.198\r\n";
   print $s "\r\n";
   print while <$s>;
'