こんなことやる必要はなかった…あちこちにこんなコードが入ってるんだけど@@;;

if($r->header('content-encoding') =~ m!gzip!){
my $content = Compress::Zlib::memGunzip($r->content);
}