Package DBH;

my $dbh=DBI->connect('DBD:foo:baz',bar,qux);

sub get_dbh() { return $dbh; }

package main;
my $dbh = DBH->get_dbh();
$dbh->prepare();