Select Code to Download

while (<$fh>) {
    my @row = $csv->parse ($_);
    ...

while (my $row = $csv->getline ($fh) {
    ...