$msg = MIME::Lite->new(
                           From     => $from,
                           To       => $to,
                           Subject  => $subject,
                           Type     => 'multipart/alternative',
    );

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

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