дисконнект от MySQL

[Forza]

Работаю на Перле с MySQL через модуль DBI.
Подключаюсь через:

Код: [Выделить]

my $dbh = DBI->connect ("DBI:mysql:host=$host_name;database=$db_name;port=$dbport", $login, $pass, {PrintError => 0, RaiseError => 1}));Отключаюсь через:

Код: [Выделить]

$dbh->disconnect();У хостера часто при очередном подключении возникает ошибка типа
DBI connect(\'host=localhost;database=DBname;port=3306\', \'login\',...) failed: Host \'ip-address\' is not allowed to connect to this MySQL server at /usr/local/lib/perl5/site_perl/5.005/Apache/Session/Lock/MySQL.pm line 36

В службе поддержки написали, что это из-за ограничения одновременных подключений к БД. Но я перерыл весь скрипт, и уверен, что закрываю каждое подключение так, как написал выше. Этого достаточно? Если да, то в чём могут быть грабли?  
Можно ли как-нибудь самому узнать список подключенных к базе скриптов?

[glebushka]

Forza, если ты работаешь в обычном цги-режиме, то закрывать соединение не обяхательно. Оно само закроется вместе с окончанием выполнения скрипта. А проблема у тебя в том, что одновременно запускается несколько копий твоего скрипта (по одной на каждого посетителя).

[Forza]

glebushka, я очень сомневаюсь в том, что было именно столько копий (мне сказали, что ограничение 50), т.к. сайт вообще не раскручивался пока, а я сидел и один его отлаживал.

[Green Kakadu]

похоже проблема в хостере у него же сейчас много проблем, ломают все кому не лень (Forza у тебя же valuehost?) и с мускулем похоже проблемы

[Forza]

Green Kakadu, да, у нас valuehost. Но не я его выбирал.
В принципе, через 3 месяца, если такое будет продолжаться, мы можем от него уйти. Посоветуете, к кому? Или этот вопрос надо в другой форум выносить?