#!/usr/bin/perl
#
# PrePaid CallingCard IVR <a id="_GPLITA_0" title="Powered by Text-Enhance" href="http://shishir.com.np/blog/?q=node/11#">Application</a> for Asterisk PBX
use Asterisk::AGI;
use DBI;

# Config options
%MYSQL = (
hostname =&gt; "localhost",
username =&gt; "username",
password =&gt; "password",
database =&gt; "asteriskdb"
);

$dbh = DBI-&gt;connect("dbi:mysql:$MYSQL{database}:$MYSQL{hostname}","$MYSQL{username}","$MYSQL{password}")
… Read more