my $csv = text::CSV_XS->new ({
    binary       => 1,
    auto_diag    => 1,
    quote_space  => 0,
    quote_binary => 0,
    });