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

##</code><code>##

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