my $ldif = Net::LDAP::LDIF->new( "../packages/ldapsearch.ldif", "r") or die "file not exits\n";
while( not $ldif->eof( ) ) {
    my $entry = $ldif->read_entry( );