>>991
マニュアルには、{ binary => 1 }とすべきと書いてありますが、これをするとどうなりますか?

my $csv = Text::CSV->new ( { binary => 1 } ) # should set binary attribute.

Text::CSV
http://search.cpan.org/~makamaka/Text-CSV-1.21/lib/Text/CSV.pm#SYNOPSIS


PerlIOがEncodeを呼んでるようです。

Encode::PerlIO
http://search.cpan.org/~jhi/perl-5.8.1/ext/Encode/lib/Encode/PerlIO.pod#How_does_it_work?