Select Code to Download

$csv->print (*STDOUT, [@{$sth->{NAME_lc}}]);

my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
$csv->print (*STDOUT, [@{$_read_sth->{NAME}}]);
...
    # print the data fetched
    $csv->print (*STDOUT, $row);  
    }