sub cgiapp_init {
  my $self = shift;

...

$self->dbh_config('mydbh', [$dsn1, $user1, $pass1, \%options1,]);

$self->dbh_config('mydbh400', [$dsn2, $user2, $pass2, \%options2,]);

}

sub one {
  my $self = shift;
  my $dbh = $self->dbh('mydbh');
  ...
}

sub two {
  my $self = shift;
  my $dbh = $self->dbh('mydbh400');
  ...
}