Select Code to Download

use Text::CSV;
my $csv = Text::CSV->new;

...
while (my $row = $sth->fetchrow_arrayref) {
     $csv->say(\*STDOUT, $row);
}

Patch::DBI::WriteCSV->import;
my @all_artists = $schema->resultset('Artist')->all;
Patch::DBI::WriteCSV->unimport;