use Text::CSV;
my $t = Text::CSV::B->new; # binary 1 by default ....