my $csv = Text::CSV_XS->new ({
    binary           => 1,
    sep_char         => "\t",
    auto_diag        => 1,
    allow_whitespace => 1,
    });