Help for this page
#!/usr/bin/perl ... $sock->send(qq{GET / HTTP/1.0\r\n\r\n}); $sock->recv($buffer, 1024); print $buffer . "\n";