Select Code to Download

my $sth = $dbh->prepare ("select a1, a2, a3, a4 from tbl");
   $sth->execute;
...
while ($sth->fetch) {
    say "Column a1: $rec{a1}";
    }