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

sub getdb
{
    my $dbh   = shift;
    my $query = $dbh->selectrow_hashref("SELECT something FROM a_table");
    return $query->{'explanation'};
}