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

print "EXEC DIAL \"Zap/1/5551234567\"\n";

or, if you are using Asterisk::AGI,

$AGI->exec("DIAL", "Zap/1/5551234567");