#!/usr/bin/perl

use EWS::Client;
use DateTime;

my $ews = EWS::Client->new({
    server      => 'exchangeserver.example.com',
    username    => 'oliver',
    password    => 's3kr1t', # or set in $ENV{EWS_PASS}
    use_negotiated_auth => 1, # only for NTLM
});

my $entries = $ews->calendar->retrieve({
    start => DateTime->now(),
    end   => DateTime->now->add( months => 1 ),
});

print "I retrieved ". $entries->count ." items\n";

while ($entries->has_next) {
    my $e = $entries->next;
    print $e->Subject, ' at ', $e->Start, "\n";
}