...
open my $fh, "<:encoding(utf8)", "ddd.CSV" ;
my $csvfile=Text::CSV_XS->new ();
until (eof $fh)
{
	if($csvfile->parse(<$fh>))
	{
	        my @resu=$csvfile->fields();
	        print STDERR   $resu[0],$resu[1];
	}
	else
	{
	        my $err = $csvfile->error_diag();
	        print STDERR  "Erreur  :  $err\n";
	}

}


##</code><code>##

"01012019","1816"

##</code><code>##

Erreur  :  EIF - Loose unescaped quote