Кому интересно, все получилось - вот код. Cpan rules! #!/usr/bin/perl use Modern::Perl; use Data::Dumper; use Asterisk::AMI; use warnings; my $astman = Asterisk::AMI->new(PeerAddr => 'ваш ip', PeerPort => '5038', Events => 'on', Username => 'admin', Secret => 'пароль' );die "Unable to connect t...

спасибо за ответ, теперь есть где копать.

заменил как написал Влад, скрипт запускается, но не завершается.
теперь другой вопрос, можно ли это скрипт запускать вручную или только через диалплан в экстеншене?
И еще погуглив так и не нашел команды AGI command, подскажит учебник или справочник по Аги

Хочу написать скрипт для очистки памяти сим карты от смс с помощью команды dongle cmd datacard0 AT+CMGD=1,4 погулив написал #!/usr/bin/perl use warnings; use strict; use Asterisk::AGI; my $AGI = new Asterisk::AGI; my %input = $AGI->ReadParse(); my $work_dir = "/usr/local/share/asterisk/agi-bin/...