成松です。UNIX系のレンタルサーバーを利用しているのですが、Host '...' is
blocked Errorr が発生してPerl API による接続が拒否されてしまいました。

API 接続ができない場合、エラーメッセージをファイルに出力するようにしておりま
す。
ちなみにそれは
Error: connecting to database Host 'hostname' is blocked because of many
connection errors.  Unblock with 'mysqladmin flush-hosts'
です。

カスタマーサポートは
Please put this command in each page that connects to mysql.
mysql_disconnect
と 「Perlで書かれたプログラムに「データベースを切断する命令」を書きなさ
い。」と指導されました。

$dsn = "DBI:$driver:$database:$hostname";
$dbh = DBI->connect($dsn,$user,$password);
と書かれているプログラムの最後に

$rc=$dbh->disconnect;
を書き加えて対処しました。（ちなみにこの対処をしたのは1つのファイルについて
のみです。）

さて、カスタマーサポートではHost '...' is blocked Errorr の発生原因は
'disconnect'の命令を入れていないからこの問題が発生していると言っていました。

質問ですが、'disconnect'の命令を入れたプログラムでも、この問題が発生する場合
があるか？ということです。

例えば、データベース接続後、なんらかの原因で'disconnect'を実行する前にそのプ
ログラムが終了した場合です。
また、もし、そのようなことがあるのなら、その問題を防止する策が存在するのかど
うか？です。