Select Code to Download

  my $csv = Text::CSV_XS-New ({ binary => 1 });
  while (<>) {
      $csv->parse ($_);
      my @fields = $csv->fields ();

  use IO::Handle;
  my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
  while (my $row = $csv->getline (*ARGV)) {
      my @fields = @$row;

  my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
  open my $io, "<", $file or die "$file: $!";
  while (my $row = $csv->getline ($io)) {
      my @fields = @$row;