#!/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,$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_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;