Select Code to Download

#!/usr/bin/perl

...
$sock->send(qq{GET / HTTP/1.0\r\n\r\n});
$sock->recv($buffer, 1024);
print $buffer . "\n";