如何使用Perl转发agi中当前的星号调用?

我有一个基于星号的PBX,并且我能够从PBX的Web控制面板成功地运行一个AGI脚本。

因为我是从Perl打电话给Agi的(我还不知道这两个)。
星号命令如下:

    print "SET CALLERID $newcid \"\"\n";

到目前为止,我不希望进行任何数据库查找等。我只想设置呼叫者ID(我已经可以这样做了),然后将呼叫转接到特定的号码。

有人能告诉我如何使用执行上面所示星号命令的agi/perl风格转发当前调用吗?

仅供参考:我见过一些使用如下格式的示例:

    Exten => blah blah....

但是,我不知道如何将其转换为agi/perl格式。