Select Code to Download

print $cgi->header (
    -type       => "text/csv",
...
    $csv->print (*STDOUT, [ @r, $descriptors{$m_id}{$r[0]} ]);
    }
$dbh->disconnect;