my $csv = Text::CSV_XS->new ({ binary => 1 }) or
   die "".Text::CSV_XS->error_diag();