# Request feuern
print $sock "GET / HTTP/1.1\n";
print $sock "Accept-Encoding: gzip,deflate\n";
print $sock "Connection: Close\n"; # weil HTTP/1.1
print $sock "Host: test\n\n";
> # Response erhalten
> binmode STDOUT;
> print $_ while <$sock>;
>
.... und schon siehst Du, ob alles funktionackelt ;)
Also die Response ist komprimiert, nicht mehr lesbar. Zum Testen nimm den Accept-Encoding Header mal raus.