#simplest authentication use Net::LDAP; my $ldap = Net::LDAP->new('myldapsrv.where.com'); print login ; chomp (my $login = <>); print password ; chomp (my $passw = <>); my $mesg = $ldap->bind( uid=$login,ou=accts,o=myorg , password => $passw); print ($mesg->code) Wrong : Right ;
{}