Select Code to Download

sub send_email_html {
    local($to, $from, $subject, $bodyHTML, $bodyTEXT) = @_;
...
    print MAIL "$bodyHTML\n";
    close (MAIL);
}

use Mail::Bulkmail;
$bulk = Mail::Bulkmail->new(
...
    HTML        => 1,
);
$bulk->mail($toAddy);