Select Code to Download

    open my $csv_fh, '<', 'input.csv';
    open my $tff_fh, '>', 'output.tff';
...

        print {$tff_fh} $line;
    }