title: How to call asterisk function in perl AGI script?
body: <p>Is there any possibility to call the asterisk function in perl AGI script like CHANNEL function.</p>
  
  <p>extension.conf</p>
  
  <pre><code>exten =&gt; _X.,1,NoOp(${CHANNEL(dahdi_channel)})
  </code></pre>
  
  <p>above NoOp will print the current call channel no. Same I need in perl AGI script. </p>