用perl脚本发送带附件的邮件

具体脚本如下:

?

#!/usr/bin/perl

use MIME::Base64;
use Encode;
use MIME::Lite;
my $str="测试邮件";
$str = "=?utf-8?B?" . encode_base64($str,"?=");
my $mymail = new MIME::Lite
??????? From???? => 'myname@mail.myserver.com;',
??????? To?????? => 'myname@mail.myserver.com;',??????? Subject? => "$str",??????? HTMLCharset => 'utf-8',??????? TextCharset => 'utf-8',??????? TextEncoding => 'base64',??????? Data => ("Hi,这是一封带附件的测试邮件。");??????? HTMLEncoding => 'base64',??????? Debug??? => 1;$mymail -> attach(Type => 'auto',Path => '/var/DBMail/TestFile.txt');$mymail -> send('smtp','mail.myserver.com',Timeout=>60);