my $csv = Text::CSV_XS->new ({ binary => 1, eol => "\r\n" });
# First print the Header row
$csv->print (*STDOUT, $_read_sth->{NAME});
# Then show all records
#         v---!
while (my $row = $_read_sth->fetchall_arrayref) {
    $csv->print (*STDOUT, $row);
    }