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