Select Code to Download

my $ary = $dbh->selectall_arrayref($sth_or_stmt);
  -or-
...
for (@$ary) {
   print "@{$_}\n";
}