Perl发送电子邮件错误

Question

use Email::Simple;
use Email::MIME::Creator;
use File::Slurp qw(slurp);
use Email::Send;


my @mimeparts = (
    Email::MIME->create(
        attributes => {
                content_type    => 'text/plain',
                charset         => 'US-ASCII',
            },
            body => "Hi there!\n\tLove,\n\tdNb\n",
    ),
    Email::MIME->create(
        attributes => {
                filename    => 'sample.png',
                content_type    => 'image/png',
                encoding    => 'base64',
                name            => 'sample.png',
            },
            body => scalar slurp('sample.png'),
    ),
);


my $mesasge = Email::MIME->create(
    header => [
        From    => 'blah@blah.org',
        To  => 'abcdef@abc.com',
        Subject => 'Test Message from Email::MIME::Creator',
    ],
    parts => [@mimeparts],
);




my $sender = Email::Send->new({mailer=>'Sendmail'});
$Email::Send::Sendmail::SENDMAIL = '/usr/sbin/sendmail';
$sender->send($message) or die "unable to send message!\n";

我有这个perl代码发送电子邮件，它说“无法发送消息！

我不太确定它有什么问题。

任何人都可以看到我没有看到的东西吗？