perl dbi повторное подключение при отключении

Я искал в Google, но не смог найти ответа на простой вопрос.

У меня есть код Perl (пример ниже), который получает данные каждые 3 секунды и обновляет полученные данные в базе данных MySQL, но иногда база данных MySQL недоступна, и сценарий умирает. Как я могу снова установить соединение с MySQL, если он не работает?

use DBD::Mysql;

sub updateMysqlDB{
my $connect = DBI->connect("dbi:mysql:$database:$host", 
                        $user,
                        $pw,
                        {RaiseError => 1}
                        );
$myquery = "My sql query to insrt data into columns";
$query_handle=$connect->prepare($myquery);
$query_handle->execute();
$connect->disconnect;
}

while (1) {

if data received call updateMysqlDB ();

else wait for data { sleep 3 ;}
}