Select Code to Download

my $dbh = DBI->connect('dbi:DBM:', ...
my $sql = "
...
$sth->dump_results if $sth->{NUM_OF_FIELDS};
$dbh->disconnect;