sub fuck {
local $/;
open(F, "fuckyou.html") || die "why don't you fuck?"
my $buf = <F>;
close(F);
return $buf;
}

こーゆーことをしたいとかじゃなくて？
こんな基本すら書けない人間が gzip とか言ってるのってありえんとおもた。