Select Code to Download

use strict;
use warnings;
...
  }
  close FILE; 
}

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