#!/usr/bin/perl -w


use EWS::Client;
use DateTime;
 
my $ews = EWS::Client->new({
    server      => 'daten.XX.YYY',
    username    => 'test',
    password    => 'blubb', # or set in $ENV{EWS_PASS}
});

my $start = DateTime->now();
my $end = DateTime->new(
    year       => 2014,
    month      => 10,
    day        => 1,
    hour       => 16,
    minute     => 12,
    second     => 47,
#    nanosecond => 500000000,
#    time_zone  => 'Europe/Berlin',
);

my $entries = $ews->calendar->retrieve({
    start => $start,
    end   => $end,
    email => 'test@site.de',	
});
 
print "I retrieved ". $entries->count ." items\n";
 
while ($entries->has_next) {
    print $entries->next->Subject, "\n";
}

1;