Select Code to Download

$sth=$dbh->prepare("select whatever from thetable where col=?");
$sth->execute($val);
...
}
$sth->finish;
return \@list;

my $hashref=$dbh->getall_hashref("select * from abc where col=?",$val)
+;
my $arrayref=$dbh->getrow_arrayref("select * from abc where col=?",$va
+l);
etc...