Select Code to Download

use strict;
use Text::CSV_XS;
...
while (my $row = $csv_in->getline ($fh)) {
    $csv_out->print ($out, $row);
    }