Stuff

context looks like:

[test]
exten => _X.,1,agi,test.pl
exten => _X.,2,Meetme(${EXTEN},Md)


the agi looks like:

#!/usr/bin/perl

use strict;
use Asterisk::AGI;

$|=1;

my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $file="/tmp/baikal.log";

open(FIF,">>$file");
print FIF "ping";
close FIF;