sub mail {
my ($msg);
my ($receiver, $ccList, $sender, $replyTo, $subject, $body) = @_;
$subject || die "Error: subject Not Defined $!\n";
$receiver || die "Error: receiver Not Defined $!\n";
$ccList || die "Error: CC List Not Defined $!\n";
$sender || die "Error: sender Not Defined $!\n";
$replyTo || die "Error: replyTo Not Defined $!\n";
$body || die "Error: body Not Defined $!\n";
$msg = MIME::Lite->new(
To => $receiver,
From => $sender,
"Reply-To" => $replyTo,
cc => $ccList,
Subject => $subject,
Type => 'multipart/related'
) or die "Error creating multipart container: $!\n";
$msg->attach(
Type => 'text/html',
Data => qq{
<body>
@$body
</body>
},
);
$msg->send;
}
| 