#!/usr/bin/perl -Wl
use strict;

use Email::Outlook::Message;

for my $filename ( glob("$ARGV[0]*") ) {

    ## tell the filename reading
    print 'Filename: ', $filename;

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