$AGI->set_variable('VAR', 'my_name_is_var');  IS NOT WORKING FOR ME!!!
-----------------------------------------------------------------------------
cat /var/lib/asterisk/varset.agi
#!/usr/bin/perl

use Asterisk::AGI;

@ARGV=split(":",shift);
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();

&main();
exit;


sub main
{
$AGI->set_variable('VAR', 'my_name_is_var');
}
--------------------------------------------------
cat /etc/asterisk/extensions.conf
[general]
static=yes
writeprotect=no

[globals]

[carrieronein]
exten => _X.,1,Answer
exten => _X.,2,agi,varset.agi
exten => _X.,3,NoOp,VAR=${VAR}
-----------------------------------------------------
    -- Accepting AUTHENTICATED call from 64.192.116.10, requested format = 4, actual format = 1024
    -- Executing Answer("IAX2[zapsor@zapsor]/16384", "") in new stack
    -- Executing AGI("IAX2[zapsor@zapsor]/16384", "varset.agi") in new stack
    -- Launched AGI Script /var/lib/asterisk/agi-bin/varset.agi
    -- AGI Script varset.agi completed, returning 0
    -- Executing NoOp("IAX2[zapsor@zapsor]/16384", "VAR=") in new stack
Jan 23 13:58:42 WARNING[-298398800]: pbx.c:1825 ast_pbx_run: Invalid extension, but no rule 'i' in context 'carrieronein'
    -- Hungup 'IAX2[zapsor@zapsor]/16384'
-------------------------------------------------------
**** It should say *****
 -- Executing NoOp("IAX2[zapsor@zapsor]/16384", "VAR=my_name_is_var") in new stack


** * Help Please! * **