my $msg  = new Email::Outlook::Message $file;
my $mime = $msg->to_email_mime;
$mime->as_string;