#!/usr/bin/perl -w

  use strict;
  use Net::LDAP::Exchange;
  use Data::Dumper;

  use constant SERVER => 'Exchange Server Here';
  use constant DOMAIN => 'Domain Here';

  # If you need to login...
  use constant LOGIN => 'Exchange Login Here';
  use constant PASSWORD => 'Password Here';

  my $ex = Net::LDAP::Exchange->new(SERVER,DOMAIN,LOGIN,PASSWORD);
  my $result_set = $ex->search_lastname('Bisbee');
  print Dumper($result_set);