while (<PERSON>){
chomp;
$dn = $ldap->search( #return only the employeeID DN
        base => "$BASEDN",
        filter => "(&(objectClass=user)(employeeID=$_))",
        scope => "sub",
        attrs => ['1.1']
        );

Net::LDAP::LDIF->new( "buildAD.ldif", "w", wrap=>40 )->write( $dn->entries );
}