Select Code to Download

open my $fh, "<", "file.csv" or die "file.csv: $!\n";
while (my $row = $csv->getline ($fh)) {
...
    # do something with this line
    }
$csv->eof or $csv->error_diag ();