use strict;
use warnings;
use Email::Outlook::Message;

for my $filename ( glob("C:/path/to/folder/with/email/files/*.msg") ) {

my $msg = new Email::Outlook::Message $filename;
my $mime = $msg->to_email_mime;
print $mime->as_string;
}