sub wanted_c {
    if (-d $_) {
      if ($d_mode) {
        change_mode($_, $d_mode);
      }
      if ($d_owner) {
        change_owner($_, $d_owner);
      }
      if ($d_group) {
        change_group($_, $d_group);
      }
    } elsif (-l $_) {
      ...
    } elsif (-f $_) {
      ...
    }
  }