#!/usr/bin/perl -w
# nick.agi

use Asterisk::AGI;

my $AGI = new Asterisk::AGI;
my @lines;

my %input = $AGI->ReadParse();

$vtest1 = A;

        $AGI->stream_file("/var/lib/asterisk/sounds/custom/AgiTest.wav");

exit;