4 lines
140 B
Perl
4 lines
140 B
Perl
use Net::LDAP;
|
|
|
|
my $ldap = Net::LDAP->new('ldap://ldap.example.com') or die $@;
|
|
my $mesg = $ldap->bind( $bind_dn, password => $bind_pass );
|