====== [Пример]подмены маски в radreply ======
**Найти:**
<sxh language width classes>
sub authorize {
  print  $sock "auth\n"; 
  $answer=<$sock>;
  
  print $sock serialize(\%RAD_REQUEST); 
  $answer=<$sock>;
  print $sock serialize(\%RAD_REPLY); 
  $answer=<$sock>;
  print $sock serialize(\%RAD_CHECK); 
  $answer=<$sock>;

        if ($answer eq "reject\n") {
      return RLM_MODULE_REJECT;
        }
      $answer=<$sock>;
  %RAD_REPLY=%{unserialize($answer)};
  
  if ($RAD_REPLY{'Packet-Type'} eq "Access-Accept") {
      if ($RAD_REPLY{'Framed-IP-Netmask'} eq "255.255.255.255") {
    
    $RAD_REPLY{'Framed-IP-Netmask'} = "255.255.255.0";
      }
  }
  
  $answer=<$sock>;
        %RAD_CHECK=%{unserialize($answer)};
        return RLM_MODULE_OK;
}
</sxh>
**Заменить на:**
<sxh language width classes>
if ($RAD_REPLY{'Packet-Type'} eq "Access-Accept") {
      if ($RAD_REPLY{'Framed-IP-Netmask'} eq "255.255.255.255") {
    
    $RAD_REPLY{'Framed-IP-Netmask'} = "255.255.255.0";
      }
  }
</sxh>