my ( $cde, $str, $pos ) = $csv->error_diag();
my $error = $cde ? "$cde, $str, $pos" : "";
warn $error if $error;
warn $error if $error && $cde ne '2012';
close($fh);
-