use Net::LDAP;
use strict;

my $ldap = Net::LDAP->new( 'ldap.server.net' ) or die "$@";