Не работает скрипт 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;
}

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

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