Select Code to Download

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