perl 发送邮件代码

#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
use MIME::Base64;
use Encode;
use MIME::Lite;


my $from = '123@163.com';


#my ($to,$subject,$msg) = @ARGV;
#lupengfei
my ($to,$cc,$subject,$msg) = @ARGV;




my @to = split /,/, $to;


#lupengfei


my @cc = split /,/, $cc;


my $smtp = Net::SMTP->new('111.22.11.22',
                          Hello => 'snda.com',
                          Timeout => 30,
                          Debug => 0,
                         );
$smtp->mail($from);
$smtp->recipient(@to, {SkipBad => 1});


#lupengfei
$smtp->recipient(@cc, {SkipBad => 1});


$subject = encode("gb2312", decode("utf8", decode_base64($subject)));
$msg = encode("gb2312", decode("utf8", decode_base64($msg)));


my $html_msg = MIME::Lite->new (
         From => $from,
         To => $to,
         #lupengfei
         cc => $cc,
         
         Subject => $subject,
         Type => 'text/html',
         Data=> $msg
       ) or die "Error creating inline email $!\n";
$html_msg->attr('content-type.charset' => 'gb2312');


$smtp->data();
print $html_msg->as_string();
$smtp->datasend($html_msg->as_string());
$smtp->dataend();
$smtp->quit;