Select Code to Download

# Takes an array and returns it as a CSV row
sub format_csv {
...
  }
  (join ",", @fields) . "\n";
}

local *FILE;
open (FILE, "> $file") or die "Cannot write '$file': $!";
...
  print FILE format_csv(@$row{@cols});
}
close(FILE) or die "Cannot close '$file': $!";