BEGIN {
  my $dbh;
  sub get_db_handle {
    ..
    ..
    return $dbh;
  }
}