#!/c/perl/bin/perl

use strict;

use warnings;

use Email::Folder::Exchange;

use Authen::NTLM;

my $user = ntlm_user();

my $password = ntlm_password();

my $folder = Email::Folder::Exchange->new('https://fqdn.com/Exchange/orgbox/Inbox', $user, $password);

my $pile;

for my $message ($folder->messages) {
	if ($message->header('Subject') =~  /Addition to EPAS Training Site for 18 FLTS/) {
		$pile .= $message->body;
		last;
	}
}

print $pile;

exit;