#!/usr/bin/perl

use Asterisk::AGI;
use strict;
use warnings;

my $AGI = new Asterisk::AGI;
$|=1;

my %input = $AGI->ReadParse();
my $exten=$ARGV[0];
my $callerid=$ARGV[1];
my $SpecialParam=$ARGV[2];

my $DialedNo=$AGI->get_data('gocdma',5000,10);

my $Number = $AGI->exec('Dial' , "SIP/melpi/$DialedNo");

$AGI->verbose("$DialedNo",3);
$AGI->verbose("$Number",3);