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