my $csv = Text::CSV->new({binary => 1}) ;