#!/usr/local/perl5/bin/perl -w
use strict;
use Email::Folder::Exchange::EWS;

SOAP::Lite->import( +trace => 'all' );
  my $folder = Email::Folder::Exchange::EWS->new('https://webmailNY.XXXXXX.com:443/ews/exchange.asmx', 'domain\gsa_spectrum_mb_read', 'password');

  for my $message ($folder->messages) {
    print "subject: " . $message->header('Subject');
    my $from_header = $message->header("From");
    my @header_names = $message->header_names;
    my $header = $message->header_obj;
    my $message_id = $message->header('Message-ID');
      
my $method = SOAP::Data->name('DeleteItems')
    ->attr({xmlns => 'https://webmailNY.XXXXXX.com/ews:443'});
my @params = ( SOAP::Data->name('Message-ID' => $message_id));
print $message-> SOAP::Lite::call($method => @params)->result;   
print 'end';
  }