Dear Asterisk Nation,<br>  <br>  I am attempting to write a perl AGI script that will give the caller  status of a P.O.&nbsp; When I run the script directly (by hand) it  executes.&nbsp; I know this because it leaves data in TEST.txt.&nbsp;  However, when I try to execute it via extensions.conf the CLI says it  executes returning 0, but it does not dump data into TEST.txt.&nbsp;  Can anyone help me determine why?<br>  <br>  extensions.conf&nbsp; (snippet)<br>  <br>  exten =&gt; 830,1,Read(Contno,enterpono,6,s)<br>  exten =&gt; 830,2,Wait(1.2)<br>  exten =&gt; 830,3,SatDigits(${Contno:0:6})<br>  exten =&gt; 830,4,AGI(AP_info.agi|${Contno})<br>  <br>  <br>  PO_info.agi<br>  <br>  #!/usr/bin/perl<br>  <br>  use Asterisk::AGI-&gt;new();<br>  <br>  my ($contno) = $ARGV[0];<br>  <br>  open (TEST, "&gt;&gt;/home/richard/TEST.txt") or die "Can't open"<br>  print TEST "CONTNO " . $contno . "\n";<br>  close (TEST);<br>  <br>  use DBI;<br>  my $dbh =
 DBI-&gt;connect("DBI:mysql:database=accounting;192.168.0.1",$user,$pass);<br>  <br>  my $q = "SELECT amount, INV_RCVD, CHK_CUT, CHK_NO<br>  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM payable p<br>  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE contno = ?";<br>  my $sth = $dbh-&gt;prepare($q);<br>  $sth-&gt;execute($contno);<br>  my ($amount, $rcvd, $cut, $cno) = $sth-&gt;fetchrow_array;<br>  <br>  if ($cno &gt; 1) {<br>  &nbsp;&nbsp;&nbsp; $agi-&gt;exec('SayDigits', $amount);<br>  &nbsp;&nbsp;&nbsp; return $amount, $rcvd, $cut, $cno;<br>  } elsif ($rcvd &gt; 1) {<br>  &nbsp;&nbsp;&nbsp; $agi-&gt;exec('SayDigits', $amount);<br>  &nbsp;&nbsp;&nbsp; return $amount, $rcvd;<br>  }<br>  <p>__________________________________________________<br>Do You Yahoo!?<br>Tired of spam?  Yahoo! Mail has the best spam protection around <br>http://mail.yahoo.com