perl - Asterisk Dialplan から AGI perl スクリプトに変数を渡す

Question

AGI を使用して、Asterisk Dialplan から perl スクリプトに変数を渡そうとしています。私は今これに取り組んでおり、これがどのように機能するかについて非常に混乱しています。現在、ダイヤルプランには次のものがあります。

exten=>1122,1,Answer
exten=>1122,n,Read(digit)
exten=>1122,n,agi(/home/steve/Desktop/testperlping.pl,${digit})
exten=>1122,n,Hangup()

ユーザーに内線番号 1122 をダイヤルしてもらい、1 ～ 10 の番号を入力してもらい、入力した番号を AGI を使用して perl に渡します。

私のperlスクリプトは次のとおりです。

#!/usr/bin/perl -w
$|=1;

use Net::Ping;
use Asterisk::AGI;

$AGI = new Asterisk::AGI;

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

***I think I need something here***

$AGI->verbose("$numbertheytypedintophone"); #This will display the entered number back to the CLI.

どんな助けでも大歓迎です。