$msg = MIME::Lite->new(From            =>$from,
                       'Reply-to'      =>$reply_to,
                       'Errors-to'     => $errors_to,
                       To              =>$to,
                       Cc              =>$cc,
                       Bcc             =>$bcc,
                       Subject         =>$subject,
                       Type            =>'TEXT',
                       Encoding        =>$transfer_encoding,
                       Data            =>$body
                       );
[download]

Cheers,
KM