Все разобрался сам
и тут напишу решение и покажу
dj-patrik как надо

и так оказалось если подумать то можно было сделать своими силами )
и так 1 делаем конект к базе данных
db.pl
sub Connect{
use DBI;
my $base=shift || "sbilling";
my $db=DBI->connect("DBI:mysql:$base:localhost","имя пользователя mysql","пароль",{RaiseError=>0});
return $db;
}
sub Use{
my $base=shift || "sbilling";
$db->do("USE $base");
}
1;
Далее делаем сам файлик запуска gen_rule.pl
#!/usr/bin/perl -w
require "inc/db.pl"; #Указываем где находиться файлик для подключения к нашей базе данных
$db=Connect(); #Делаем конект
$q=$db->prepare("select text, addr from firewall"); #Выбираем столбы и саму таблицу
$q->execute;
while (($text, $addr) = $q->fetchrow_array()) {
system("/sbin/iptables -A FORWARD -p all -s $text -d $addr -j DROP"); #Выполняем правила с подставлением значений в базе нашей
}
$q->finish(); # Все финиш
$db->disconnect(); #И отключаемся от базы
Надеюсь кому и пригодиться в жизни )