Скрипт выполняется только вручную [закрыт]

Добрый день! Со скриптами и Астериском только начинаю свое знакомство, а начальство как обычно говорит что должно работать уже вчера. Есть простенький скрипт, который при пришествии факса должен отправлять сообщение на e-mail. Выполняя этот скрипт вручную из командной строки все работает хорошо, но когда скрипт выполняется астериском не происходит вообще ничего(в логах Астериска есть запись о вызове скрипта). Пересмотрел весь форум, в похожей теме ответа не нашел. Разрешения на используемые папки поставил 777, подскажите в какую сторону посмотреть? Тело скрипта прилагаю:

#!/usr/bin/perl -w

use MIME::Base64;
use Net::SMTP;

my $smtp_mail_from = "pochta\@bk.ru";
my $smtp_addr = "smtp.mail.ru";
my $email = "Poluchatel\@mail.ru";

my $subj = "Fax prinat";
my $Body = "Fax prinat";
my $code = encode_base64("Password");
my $login = encode_base64('pochta@bk.ru');

$smtp = Net::SMTP->new('smtp.mail.ru',
                                        Debug => 1,
                                        Port=> 25,
                                        Timeout => 40

print $smtp->domain, "\n";
$smtp->datasend("AUTH LOGIN\n");
$smtp->response();
$smtp->datasend($login);
$smtp->response();
$smtp->datasend($code);
$smtp->datasend("\n");
$smtp->response();
$smtp->mail($smtp_mail_from);
$smtp->recipient($email);
$smtp->data();
$smtp->datasend("Subject: $subj \n");
$smtp->datasend("\n");
$smtp->datasend("$Body \n");
$smtp->dataend();
$smtp->response();
$smtp->quit;
print "done\n\n";