Select Code to Download

  use Text::CSV_XS qw( csv );
  my $aoa = csv (in => "file.csv");

  my $aoa = csv (in => "file.csv", sep_char => ";");

  my $aoa = csv (in => "file.csv", sep => ";");

  use autodie;
  use Text::CSV_XS;
...
      # do something with the row
      }
  close $fh;

  # Default: return a list of lists (rows)
  my $aoa = csv (in => "file.csv");

  # Using the header line: return a list of hashes (records)
  my $aoh = csv (in => "file.csv", headers => "auto");

  open my $fh, "<", "file.csv";
  my @hdr = @{$csv->getline ($fh)};
  $csv->column_names (@hdr);
  while (my $row = $csv->getline_hr ($fh)) {
      ...

  open my $fh, "<", "file.csv";
  my @hdr = @{$csv->getline ($fh)};
  $csv->column_names (@hdr);
  while (my $row = $csv->getline_hr ($fh)) {

  open my $fh, "<", "file.csv";
  my @hdr = $csv->header ($fh);
  $csv->column_names (@hdr);
  while (my $row = $csv->getline_hr ($fh)) {

sub Text::CSV_XS::header {
    my ($csv, $fh, $seps) = @_;
...
    close $h;
    @{$row // []};
    } # Text::CSV_XS::header

=head2 $csv->header ($fh)

...
 while (my $row = $csv->getline ($fh)) {
     ...
     }

  #---
...
  $csv->column_names ($csv->header ($fh, [ ";", ",", "|" ]));
  while (my $row = $csv->getline_hr ($fh)) {
      # $row = { foo => "1", bar => "baz" }