Не работает скрипт AGI (Radius_auth)

Добрый день! Пытаюсь настроить аутентификацию через Radius. Аккаунтинг работает без проблем, а аутентификация не хочет! При чем ошибок не выдает вообще:

> -- Executing [84956477777@sip_auth:1] AGI("SIP/1001-00000004", "agi-rad-auth.agi,Mode=Account&Username= 1001 ") in new stack <p> -- Launched AGI Script /var/lib/asterisk/agi-bin/agi-rad-auth.agi <p> <SIP/1001-00000004>AGI Tx >> agi_request: agi-rad-auth.agi <p> <SIP/1001-00000004>AGI Tx >> agi_channel: SIP/1001-00000004 <p> <SIP/1001-00000004>AGI Tx >> agi_language: en <p> ... <SIP/1001-00000004>AGI Tx >> agi_accountcode: <p> <SIP/1001-00000004>AGI Tx >> agi_threadid: 140464187651840 <p> <SIP/1001-00000004>AGI Tx >> agi_arg_1: Mode=Account&Username= 1001 <p> <SIP/1001-00000004>AGI Tx >> <p> -- <SIP/1001-00000004>AGI Script agi-rad-auth.agi completed, returning 0 

Подскажите почему нет ответа через STDOUT (AGI Rx <<)??

Скрипт взят вот от сюда Вот его начало:

use Crypt::CBC; use Asterisk::AGI; use Authen::Radius; use Digest::MD5 qw(md5_hex); my $return_code; my $credit_time = -1; my $timeout = -1; my $credit_amount; my $hangup = 1; my $call_setup = 1; $AGI = new Asterisk::AGI; my %input = $AGI->ReadParse(); return $todecode; $AGI->verbose("AGI Environment Dump:", 3); foreach my $i (sort keys %input) { $AGI->verbose(" -- $i = $input{$i}", 3); return $todecode; } my %params; my(@pairs) = split(/[&;]/,$ARGV[0]); my($param,$value); foreach (@pairs) { ($param,$value) = split('=',$_,2); $param = unescape($param); $value = unescape($value); $params{$param}=$value; } 

Все модули подгружены. На соседней машине этот же скрипт аутентификации работает. Не могу разобраться, ошибок вообще не выдает!

Помогите, пжл.