Select Code to Download

   sub _setup_dbh {

...
      return $self->{'_dbh'};

   }

sub get_dbh {

...
   return $self->{'_dbh'};

}

$dbh = $foo->get_dbh;

$dbh->prepare( "blah blah whatever" )

sub dbq {

...
   return $sth;

}

$dbh = $foo->get_dbh;

$dbh->dbq( "blah blah whatever" );