Select Code to Download

use 5.16.2;
use warnings;
...
    $csv->print ($fh, [ Spreadsheet::Read::row ($sheet, $row) ]);
    }
close $fh;