my $ldif_OUT = Net::LDAP::LDIF->new( "buildAD.ldif", "a", wrap=>40 );
while (<PERSON>){
	chomp;
	$dn = $ldap->search( #return only the employeeID DN
			base => "$BASEDN",
			filter => "(&(objectClass=user)(employeeID=$_))",
			scope => "sub",
			attrs => ['1.1']
			);
        next unless $dn; # Make sure something is returned..
	while( my $entry = $dn->pop_entry() )
	{
	  $ldif_OUT->write_entry($entry);
	}
	print OUT "changetype: modify";
	print OUT "replace: manager";
	print OUT "manager: dn","\n";
}
$dn = $ldap->unbind;  #session ends