わざわざバイナリで?いやぁん(:_;)

perlでバイナリを扱うのはちとしんどい。。。