#!/usr/bin/perl -w
use strict;
use warnings;
use Email::MIME;
use Email::Address::XS;
use Encode;
use Email::Outlook::Message;

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

    # will create an Email::Mime object from .msg file
    my $msg  = new Email::Outlook::Message $filename or die "Can't open $filename: $!\n";
    my $msg_mime = $msg->to_email_mime;
    #print "Mime parts: " . $msg_mime->as_string, "\n";

    my ($from) = Email::Address::XS->parse($msg_mime->header ('From'));
    my ($to) = Email::Address::XS->parse($msg_mime->header ('To'));
    my $subject = encode ("utf8", $msg_mime->header ('Subject'));
    my $date = $msg_mime->header ('Date');

    print "FROM: ", $from, "\n";
    print "TO: ", $to, "\n";
    print "SUBJECT: ", $subject, "\n";
    print "DATE: ", $date, "\n\n";

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

    my (@mailData, $body);
    $msg_mime->walk_parts(sub {
          my ($part) = @_;
          # warn($part->content_type . ": " . $part->subparts);
          if (($part->content_type =~ /text\/plain; charset=\"?utf-8\"?/i) && !@mailData) {
            @mailData = split( '\n', $part->body);
          }
          elsif (($part->content_type =~ /text\/plain; charset=\"?us-ascii\"?/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
          }
          elsif (($part->content_type =~ /text\/plain; charset=\"?windows-1252\"?/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
          }
          elsif (($part->content_type =~ /text\/plain; charset=\"?iso-8859-1\"?/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
          }
    });

      #print $part->body;
      #only need utf-8 for this test
      foreach my $line (@mailData) {
             print encode ("utf8", $line) . "\n";
      }

}