Как себя чувствует RADIUS?

use Time::Local;  my $tm; my $ln;  my %auth; my %acco;  my %discarded; my %accepted;  # Обрабатываем все поступающие строки while (<>) {   # Убираем перевод строки   chomp;   s/\|0\s+\|//;   # Регулярным выражением извлекаем время   if (/^(\d\d):(\d\d):(\d\d),(\d\d\d),\d\d\d/) {       # Приводим значение времени к количеству миллисекунд с начала эпохи       # Поскольку дата нас не интересует, берем 01/01/1970       $tm = timelocal($3, $2, $1, 01, 01, 1970) * 1000 + $4;   }   if (/\|/) {       $ln .= $_;   } else {       if ($ln) {           # Разбиваем строку на байты           my @packet = split /\|/, $ln;           # Нас интересуют только UDP-пакеты           if ($packet[23] eq '11') {               my $code = $packet[42];               my $id   = $packet[43];               # RADIUS Request               if ($packet[36] eq '07' and                   ($packet[37] eq '14' or $packet[37] eq '15')) {                   # Аккаутинг                   if ($code eq '04') {                       # Повтор ID запроса означает потерю соответствующего ответа                       if (exists($acco{%id})) {                           $discarded{$code}++;                       }                       # Сохраняем время получения запроса                       $acco{%id} = $tm;                   # Авторизация                   } else {                       if (exists($auth{%id})) {                           $discarded{$code}++;                       }                       $auth{%id} = $tm;                   }               }               # RADIUS Response               if ($packet[34] eq '07' and                   ($packet[35] eq '14' or $packet[35] eq '15')) {                   # Аккаутинг                   if ($code eq '05') {                       if (exists($acco{%id})) {                           if ($tm - $acco{%id} > 1000) {                               # Если прошло более 1 секунды, считаем пакет отброшенным                               $discarded{$code}++;                           } else {                               # Иначе увеличиваем количество успешно обработанных пакетов                               $accepted{$code}++;                           }                           delete($acco{%id});                       }                   # Авторизация                   } else {                       if (exists($auth{%id})) {                           if ($tm - $auth{%id} > 1000) {                               $discarded{$code}++;                           } else {                               $accepted{$code}++;                           }                           delete($auth{%id});                       }                   }               }           }                                 $ln = '';       }   } }  # На всякий случай, учитываем ID, для которых не сформирован ответ while (($id, $tm) = each(%auth)) {   $discarded{'01'}++; }  while (($id, $tm) = each(%acco)) {   $discarded{'04'}++; }  #Выводим результаты обработки print "Auth  Accepted: $accepted{'02'}\n"; print "Auth  Rejected: $accepted{'03'}\n"; print "Acco Responsed: $accepted{'05'}\n\n";  print "Auth Request  Discarded: $discarded{'01'}\n"; print "Auth Accept   Discarded: $discarded{'02'}\n"; print "Auth Reject   Discarded: $discarded{'03'}\n"; print "Acco Request  Discarded: $discarded{'04'}\n"; print "Acco Response Discarded: $discarded{'05'}\n";