Peculiar problem with Net::LDAPS and AD LDAP

Select or download this

#!/usr/bin/perl

...
print Dumper $mesg1;

exit;

Select or download this

LDAP query filter on sAMAccountName:

...
                 'mesgid' => 7,
                 'ctrl_hash' => undef
               }, 'Net::LDAP::Search' );

Select or download this

LDAP query filter on objectGUID from previous query:

...
                 'raw' => undef,
                 'callback' => undef
               }, 'Net::LDAP::Search'

Select Code to Download