Select Code to Download

my $sth = prepare_and execute($dbh, "
   SELECT cols
...
while (my $row = $sth->fetchrow_hashref) {
   ...
}