Select Code to Download

send($sock,"GET / HTTP/1.0\n\n",0);
                 ^

binmode $sock, ":crlf";
print $sock "GET / HTTP/1.0\n\n";