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