Perl - Проблемы с использованием MIME :: Lite с аутентификацией для отправки писем

Question

Я пытаюсь отправить электронную почту, используя MIME::Lite с аутентификацией.

Вот фрагмент кода, который я пытаюсь:

#!/usr/bin/perl

use strict;
use DBI;
use lib '/theannealing.com/perl/';
use MIME::Lite;
use MIME::Base64;
use Authen::SASL;

my $recipient       =   'recipient@email.com';
my $mailman         =   'sender@email.com';
my $cc_recipient    =   'ccrecipient@email.com';
my $subject         =   'Subject';
my $email_message   =   "Message";

my ($user,$pass) = ("username","password");

MIME::Lite->send('smtp','smtp.server:port',AuthUser=>$user, AuthPass=>$pass);
my $email = new MIME::Lite(From => $mailman,To => $recipient,Cc => $cc_recipient,Subject => $subject,Data => "Data",Type => "multipart/mixed"); 
$email->attach(Type => 'TEXT', Data => "$email_message");
$email->send();

Когда я выполняю скрипт, я получаю это сообщение об ошибке:

Cannot find a SASL Connection library at /usr/lib/perl5/5.8.8/Net/SMTP.pm line 143

Я попытался найти сообщение об ошибке и не смог найти каких-либо полезных объяснений и / или решений проблемы, касающихся использования с MIME::Lite

Кто-нибудь знает, что не так или что выдает это сообщение об ошибке?

---

UPDATE Отправка электронной почты через php с помощью функции mail() отлично работает из веб-браузера, но не работает из командной строки

Answer 1

Вам необходимо переустановить Authen :: SASL - он был установлен неправильно. Сделайте это как root из командной строки:

cpan GBARR/Authen-SASL-2.15.tar.gz