if (/sshd[d+]: Failed password for .+ from D+(d+.d+.d+.d+)/) {

      $ip=$1;

    next if defined($blocked{$ip});

      $tries{$ip}+=1; # увеличиваем счетчик

      if ($tries{$ip} eq $max){

       # если превышено максимальное значение,

       # пакеты с данного адреса должны быть заблокированы

         $blocked{$ip}=1;

         # добавляем в список доступа запись о запрете

         # доступа с IP

         $t->waitfor('/# pixfirewall(config):.*$/')

         or die "No router configure mode: ", $t->lastline;

         $t->print("access list 110 deny ip host $ip host 1.1.1.254");

         # отправляем письмо

    %mail = ( To      => 'admin@test.local',

    From    => 'firewall@test.local',

    Message => "IP $ip has been blocked !",

          SMTP    => 'smtp.mail.ru'

           );

    sendmail(%mail) or die $Mail::Sendmail::error;

      }

    }

  }

  sleep 1;

  seek(LFILE, $curpos, 0);

}

$t->waitfor('/# pixfirewall(config):.*$/')

       or die "No router configure mode: ", $t->lastline;

    $t->print("access list 110 permit ….");

…

# здесь добавляем другие записи в список доступа

$t->waitfor('/# pixfirewall(config):.*$/')