Select Code to Download

use DBI;
use PerlIO::gzip;
...
while (my $row = $sth->fetch) {
    $csv->print ($fh, $row);
    }