my $DISTNAME
= 'cn=admin,ou=unit,o=organisation,l=locality,c=country';
open (FILE, "dn") or die "File open failed: $!\n";
while (<FILE>)
{
chomp;
$result = $ldap->modify( $DISTNAME,
add => {uniqueMember => $_} );
$result->code &&
warn "failed to modify entry...