#!/usr/bin/perl
use Asterisk::AMI;
my $astman = Asterisk::AMI->new(PeerAddr => '127.0.0.1',
PeerPort => '5038',
Username => 'admin',
Secret => 'pass'
);

die "Unable to connect to asterisk" unless ($astman);

my $response = $astman->action({Action => 'Originate',
Channel => 'SIP/10',
Context => 'call-centre',
Exten => 200,
Priority => 1,
Async => 1});

my $response = $astman->disconnect();

exit 0;