¿Cómo reenvio la llamada actual de Asterisk en AGI usando Perl? - perl, asterisco, telefonía

Tengo un PBX basado en asterisco y he podido ejecutar con éxito un script AGI desde el panel de control web del PBX.

Porque estoy llamando a AGI desde Perl (ninguno de los cuales sé, todavía) ...
Los comandos de asterisco se ven así:

    print "SET CALLERID $newcid ""n";

Hasta ahora, no espero tener que realizar ninguna búsqueda en la base de datos, etc. Simplemente quiero configurar el identificador de llamadas (que ya puedo hacer) y luego reenviar la llamada a un número en particular.

¿Alguien me puede mostrar cómo reenviar la llamada actual usando el estilo AGI / perl para ejecutar los comandos de asterisco que se muestran arriba?

FYI: He visto algunos ejemplos usando un formato como:

    Exten => blah blah....

Pero, no estoy seguro de cómo convertir eso al formato AGI / perl.

Respuestas

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

o, si estas usando Asterisk::AGI,

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