Select Code to Download

  my %vars = (
    'dir-mode' => \$d_mode,
...
    }
    ${ $vars{$testy} } = $config{$test}{$tester}{$testy};
  }

  my $wanted_this_time = {
    mode => $wanted_mode,
    owner => $wanted_owner,
    group => $wanted_group,
  };

  my $wanted = {
    if_directory => {
...
    if_link => { ... }
    if_file => { ... }
  };

my %wanted;
my %validfile = map +($_ => 1), qw/ dir file link /;
...
    change_group($_, $wanted->{'group'});
  }
}

  my %filetypes = (
    'dir' => sub { -d _ },
...
      }
    }
  }