sub one {

  my $dbh = &dbConnect;
  # query continues here

}

sub two {
  
  my $dbh = &dbConnect;
  # query continues here
}
sub dbConnect {

        my $dsn = "DBI:mysql:database:localhost";
        my $db_user_name = 'username';
        my $db_password = 'password';
        my $dbh;
        $dbh = DBI->connect
                ($dsn, $db_user_name, $db_password,
                {
                        RaiseError => 1 

                }
                        ) or die("cannot connect to DB: ".DBI::errstr."\n",$dbh);

       
        return $dbh;





}