Интересует именно PERL, т.к. в PHP нижеописанного не произойдет.
Нужно удалить список таблиц из БД. Но как только скрипт доходит до несуществующей таблицы цикл прерывается. Как увидите из содержания кода, я не знаком с PERL-ом вообще и не знаю как ошибки обрабатываются.
как проигнорировать такую ошибку?
или как проверить существование таблицы с именем $table_name

Ниже код:
while($result = $sth->fetchrow_hashref)
{
$table_name = $result->{'ip'};
my $res=$table_name=~s[(\.+)]<"_">ge;
print "result=$res new ip=$ip\n";
$sql2 = "DROP TABLE `".$ip."`";
$sth2 = $dbh2->prepare($sql2);
$sth2->execute();
}