my $ldif = Net::LDAP::LDIF->new ($file, 'r') || croak "Cannot open $file";