perl で圧縮してみた

use Compress::Zlib を使った。deflateInit() でオブジェクトを作ってから、deflate して flush させた。
あれ？こっちも同じサイズになるな……。md5 の値は同じものがでるので、比較対象のファイルを間違えているわけではない。
根本的に圧縮対象部分を間違えているのかも。