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