Использование постоянного подключения в mod_perl к БД

Используется постоянное соединение, но если допустим соединение потерялось и или еще что, то скрипт сново его устанавливать не будет, как быть?
package funclocal;
use warnings;
$VERSION = '1.00';
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(connectDB);


sub connectDB
{
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost",
"test", "mytest",
{'RaiseError' => 1});

return $dbh;
}


вызов:
$dbh=funclocal::connectDB;