$msg = MIME::Lite::TT::HTML->new(
        ...,
        Type => 'multipart/mixed'
    );