package MyDB;
use DBI;
our $dbh;
sub getDbh {
  if (defined $dbh) {
    $dbh->ping;
  } else {
    DBI->connect(.....);
  }
  return $dbh;
}