Select Code to Download

sub dir_names {
    # Skip over everything that is not a directory.  Note that
...
    # Do not recurse below current directory.
    $File::Find::prune = 1;
}