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" });