System error

error:  Connection failed: Too many connections at /home/hosting/milrussia/lib/mr/core.pm line 51.
context: 
... 
47:  my $db = $sys::config::mysql_db;
48:  my $host = $sys::config::mysql_host;
49:  # по рекомендации
50:  # $mr::dbh = DBI->connect("DBI:mysql:$db:$host", $login, $passwd);
51:  $mr::dbh = DBI->connect("DBI:mysql:$db:$host", $login, $passwd) or die "Connection failed: " . $DBI::errstr;
52:  $mr::dbh->do(qq{SET NAMES 'utf8'}) or die $mr::dbh->errstr;
53:  std_out ("Connected to database.");
54:  }
55: 
... 
code stack:  /home/hosting/milrussia/lib/mr/core.pm:51
/home/hosting/rvp.militera.org/html/autohandler:4
raw error






























Connection failed: Too many connections at /home/hosting/milrussia/lib/mr/core.pm line 51.


Trace begun at /usr/local/share/perl/5.28.1/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Connection failed: Too many connections at /home/hosting/milrussia/lib/mr/core.pm line 51.^J') called at /home/hosting/milrussia/lib/mr/core.pm line 51
mr::core::db_connect('mil', 'megabase', '3DksWDM8dkLck4Xp') called at /home/hosting/rvp.militera.org/html/autohandler line 4
HTML::Mason::Commands::__ANON__('sort1', 7472, 'sort2', 'country', 'cat', 1578) called at /usr/local/share/perl/5.28.1/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55e6ed9c1708)', 'sort1', 7472, 'sort2', 'country', 'cat', 1578) called at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 1300
eval {...} at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'sort1', 7472, 'sort2', 'country', 'cat', 1578) called at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55e6ed9b2b00)') called at /usr/local/share/perl/5.28.1/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55e6ed9b2b00)') called at /usr/local/share/perl/5.28.1/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x55e6ec408da0)', 'Apache2::RequestRec=SCALAR(0x55e6ebf5cb98)') called at (eval 23) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x55e6ebf5cb98)') called at -e line 0
eval {...} at -e line 0