In what way does your code not work? What output do you get when you run this code? Have you used strictures and warnings? Take a look at How do I post a question effectively?

Net::LDAP has a substantial amount of documentation: have you tried Net::LDAP::FAQ and Net::LDAP::Examples?