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