Select Code to Download

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