Select Code to Download

use warnings;
use strict;
...
    $csv->print(select, $row);
}
$csv->eof or $csv->error_diag;