use Email::Folder::Exchange;

    # Access Exchange 2007/2010 via Exchange Web Services
my $folder = Email::Folder::Exchange->new('https://outlook.xyz.ch', 'giordano', '12345');

for my $folder ($folder->folders) {
  print "folder uri: " . $folder->uri->as_string;
  print " contains " . scalar($folder->messages) . " messages";
  print " contains " . scalar($folder->folders) . " folders";
}