Select Code to Download

while (defined( my $fn = readdir($dh) )) {
   my $qfn = "$dir_qfn/$fn";
   ...
}

sub load {
   my ($pkg) = @_;
   my $qfn = $pkg =~ s{::}{/}gr . '.pm';
   ...
}

for my $qfn (glob("\Q$dir_qfn\E/*")) {
   stat($qfn)
...

   ...
}

for my $subdir_qfn (glob("\Q$dir_qfn\E/*")) {
   stat($qfn)
...

   ...
}

for my $subdir_qfn (
   grep {
...
) {
   ...
}