Select Code to Download

 while ( my $row = $csv->getline( $fh ) ) {
      $patron_count++;
 
    push @rows, $row;

 $csv->print ($fh, $_) for @rows;