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