my @hdr = $csv->header ($fh)->column_names;
  $csv->header ($fh, [ ";", ",", "|", "\t" ]);
  $csv->header ($fh, { bom => 1, fold => "lc" });
  $csv->header ($fh, [ ",", ";" ], { bom => 1, fold => "lc" });

##</code><code>##

 my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
 open my $fh, "<:encoding(iso-8859-1)", "file.csv";
 $csv->header ($fh);
 while (my $row = $csv->getline_hr ($fh)) {
     ...
     }