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