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