Current File : //usr/share/perl5/vendor_perl/MyMail.pm
package MyMail;
use strict;
use MIME::Lite;
use Encode qw/encode decode/;
sub send {
my ($from,$to,$subj,$body,$charset)=@_;
$charset='iso-8859-1' if (!$charset || $charset eq '');
my $subj1 = encode('MIME-Header', $subj);
my $msg = new MIME::Lite(from=>$from,To=>$to,Subject=>$subj1,Type=>'text/plain',
Encoding=>'quoted-printable',Data=>$body);
$msg->attr('content-type.charset'=>$charset);
return $msg->send_by_sendmail(FromSender=>$from)?1:0;
}
1;
Mini Shell