#!/usr/bin/perl

my $db_conn;
{ my $dbh  = eval{ DBI::Connect( @params ) }
    or &RaiseError();
  $db_conn = sub { return $dbh; };
}
    

sub one{
  my $db_conn = shift;
  my $dbh = &$db_conn;
  # use connection here... 
  return;
}

sub two{
  my $db_conn = shift;
  my $dbh = &$db_conn;
  # use connection here... 
  return;
}