Select Code to Download

my @column_names = @{$_read_sth->{NAME_lc});
local $\ = "\n";
...
while (my $row = $_read_sth->fetchall_arrayref) {
    print join ",", @$row; # Extremely oversimplified
    }

$VAR1 = [
          undef
        ];