die "Usage: permmy -[itcad] [directory] -f config-file\n"
unless @ARGV >= 3;

use vars qw/ $opt_t $opt_c $opt_d $opt_i $opt_f $opt_a/;
getopts('tcdi:f:a:') or die "Usable options are -tcifa: $!\n";

##</code><code>##

sub usage {
  my $text = <<USAGE;
$0 [ -i | -c | -t ] directory [, directory ... ]
Frobnicate all the files in the specified directory/ies
-t   test only, and warn of discrepancies
-i   inclusive: unknown files ignored
-c   conclusive: unknown files deleted
(default is to defrobnicate unknown files)
USAGE
  die "$text\n@_\n" if @_;
  print $text;
  exit 0;
}

##</code><code>##

if ($opt_t || $opt_d || $opt_c)
{
    ...
}

[ snip 11 subroutines covering some 180 lines ]

if ($opt_d)
{
    ...
}

##</code><code>##

exit 0;

# --- subroutines

##</code><code>##

if ($opt_d) {
  configtest();
} elsif ($opt_i) {
  configurator("i", $perms_config_file, $dir_tree, \&wanted_ia);
} elsif ($opt_a) {
  configurator("a", $perms_config_file, $add_tree, \&wanted_ia);
} elsif ($opt_t) {
  configtest();
  fulltest();
} elsif ($opt_c) {
  configtest();
  changeperms();  # or whatever this actually does
}

##</code><code>##

  if (valid($foo)) { ... }

##</code><code>##

  if ($obj->valid) { ... }

##</code><code>##

  validate($foo);   # dies if invalid

##</code><code>##

sub configurator ($$$$)
{
    ...
    exit;
    close CONFIG or die "Could not close config file $conf_file: $!\n";
}

##</code><code>##

  my $nice_mode = &return_mode($mode);

##</code><code>##

sub change_mode ($$)
{
  ...(oct($change_value) != oct($c_nice_mode))...
}

##</code><code>##

        chown($num_uid, -1, $the_file) or warn "Could not change owner of $the_file: $!\n";
        print "Changed owner of $the_file from $c_pwuid to $change_value\n";

##</code><code>##

  if (chown(...)) {
    print "success";
  } else {
    warn "failure";
  }

##</code><code>##

  chown(...) or do { warn "failure"; return };
  print ...

##</code><code>##

                    if ($testy eq "dir-mode") { $d_mode = $config{$test}{$tester}{$testy} }
                    elsif ($testy eq "file-mode") { $f_mode = $config{$test}{$tester}{$testy} }
                    ...

##</code><code>##

  elsif ((-d $_) && ($d_uid))