unless ($local_package::dbh) { $local_package::dbh = [DBI connect string] or die [DBI error] };
my $dbh = $local_package::dbh;