$msg = MIME::Lite->new(
    To      => $email_to,
    From    => $email_of_sender,
    Subject => $email_subject,
    Type    => 'multipart/alternative',
);
             
$msg->attach(
    Type => 'TEXT',
    Data => $email_body
);

$msg->attach(
    Type => 'text/html',
    Data => $email_html
);

$msg->send;