#!/usr/bin/perl
use Asterisk::AGI;
$AGI = new Asterisk::AGI;

$AGI->verbose("helo*****");