my $csv = Text::CSV_XS->new ({
    binary             => 1,
    allow_loose_quotes => 1,
    escape_char        => undef,
    auto_diag          => 1,
    });