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