如何用perl 呗劫LDAP server?

如何用perl 呗劫LDAP server?

有?example?      
creat a new Net:DAP object :

$c = new Net:DAP($server)

if you use module Net:DAP , there are plenty examples lay in the directory.