Select Code to Download

  my @names = @{$csv->getline ($io)}; # note the @{...}
  $csv->column_names (@names);

  my @names = @{$csv->getline ($io)}; # note the @{...}
  $csv->column_names ( [ @names ] );  # extra whitespace for attention

  $csv->column_names ($csv->getline ($io));

  my @names = $csv->column_names ();