sub wanted_c
                {
                   if ((-d $_) && ($d_mode)
                   {
                        change_mode($_, $d_mode);
                        $d_mode = "";
                        wanted_c();
                    }
                    elsif ((-d $_) && ($d_own))
                    {
                        change_owner($_, $d_own);
                        $d_own = "";
                        wanted_c();
                    }