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