Select Code to Download

open(my $data, '<', $file) or die "Could not open '$file' $!\n";
while (my $line = <$data>) {
...
  if ($csv->parse($line)) {
 
      my @fields = $csv->fields();