Select Code to Download

# make sure $fh is the file-handle to the CSV stream
# with the CSV data in memory (say it is in $data), you can
...
    if ($indata == 0) {
        @data = @$row;
        if ($row->[0] eq "Subject:") {