#!/usr/bin/perl

use strict;
use warnings;
use Asterisk::Manager;

my $ami = new Asterisk::Manager;
$ami->host("localhost");
$ami->port(5038);
$ami->user("asterisk");
$ami->secret("asterisk");
$ami->connect() or die $ami->error();

$ami->sendcommand(
  Action   => "Originate",
  Channel  => "CAPI/g0-9/1234", # source on whose behalf we originate the call
  Exten    => "55512345", # destination phone number, use with caution
  Priority => 1,
  Async    => 0,
  Timeout  => 15000,
  Context  => "default") or die $ami->error();