Sieht ja echt professionell aus :)
Aber die Umgebungsvariable heisst HTTP_ACCEPT_ENCODING statt Accept-Encoding.
Und in $part =~ m!(\w+);\s*q\s*=\s*(.+?)\s*!i; sollte am Anfang und Ende ^ und $ stehen, denn wenn $part eq "gzip;q=0.5" ist, wuerde sonst (.+?)\s* nur auf die "0" und die 0 Whitespaces dahinter matchen, d. h. statt 0.5 wird nur 0 gespeichert.
Und dann steht da irgendwo cempress statt compress.
Tschuldigung fuers Rummeckern :( Ich sag das nur lieber sofort, bevor sich die Fehler noch per Copy & Paste in den Forumscode fortpflanzen.
Ich geh dann jetzt mal schlafen.\n\n

<!--EDIT|betterworld|1065403701-->