Select Code to Download

use strict;
use warnings;
...
while (my $row = $csv->getline ($infh)) {
    $tsv->print ($outfh, $row);
    }