How do I forward the current Asterisk call in AGI using Perl?

Question

I have an asterisk-based PBX, and I have been able to successfully run an AGI script from the web control panel of the PBX.

Because I am calling AGI from Perl (neither of which I know, yet)...
asterisk commands look like this:

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

So far, I don't expect to need to do any database lookups, etc. I simply want to set the caller ID (which I can do already) - then forward the call to a particular number.

Can anyone show me how to forward the current call using the AGI/perl style of executing asterisk commands shown above?

FYI: I've seen some examples using a format like:

    Exten => blah blah....

But, I am not sure how to convert that to the AGI/perl format.

Answer 1

=IF([WIP Target First Production Date]="","",IF([ATP Type]="Tin",DATE(YEAR([WIP Target First Production Date]),MONTH([WIP Target First Production Date])-4,DAY([WIP Target First Production Date])),IF([ATP Type]="Film & Tray",DATE(YEAR([WIP Target First Production Date]),MONTH([WIP Target First Production Date])-3,DAY([WIP Target First Production Date])),IF([ATP Type]="Case",DATE(YEAR([WIP Target First Production Date]),MONTH([WIP Target First Production Date])-1,DAY([WIP Target First Production Date]))))))

.

이것은 결국 솔루션이었습니다.