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 }, ); $msg->send; }