...

sub cgiapp_init {

  my $self = shift;
  

     my $db = 'myServer';
     my $user = 'user';
     my $pass = 'pass';
     my $sql_dbh = DBI->connect( "DBI:ODBC:$db", $user, $pass )
                               || print "Connect fail: $!";
     
     my $as400_db = 'AS400';
     my $as400_user = 'user;
     my $as400_pass = 'pass';
     my $as400_driver = DBI->connect( "DBI:ODBC:$as400_db", $as400_user, $as400_pass )
                               || print "Connect fail: $!";

     
     $self->param('mydbh' => $mssql_dbh, 'mydbh400' => $as400_driver );


}

...

sub one {

 my $self = shift;

 # Get database connection
 my $dbh = $self->param('mydbh');
 ...
 
}


sub two {

 my $self = shift;

 # Get database connection
 my $dbh = $self->param('mydbh400');
 ...

}

...