Select Code to Download

#!/usr/bin/perl -w

...
    die("Couldn't connect to database\n");

print "info: " , getdb() , "\n";

#!/usr/bin/perl -w

...
    my $query = $main::dbh->selectrow_hashref("SELECT something FROM a
+_table");
    return $query->{'explanation'};
}