Select Code to Download

DBI connect('database','username',...) failed: Too many connections

sub cgiapp_init {
    my $self = shift;
...
    my $self = shift;
    $self->param('dbh')->disconnect() or die $self->param('dbh')->errs
+tr;
}