Look through Net::LDAP, which implements a LDAP services API for Perl programs, and Net::LDAP::Examples which consists a good examples of working with Net::LDAP.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);