Select Code to Download

my $sth = $dbh->prepare ("select * from foo");
$sth->execute;
...
    # Do something with the record. Fields are stored in %r
    printf "%-16s: %s\n", $_, $r{$_} // "--undef--" for @fields;
    }