Thanks to your response and those of blakem, and DrZaius, I was able to fix it up. Thanx! (and for those too lazy to follow the link to the $File::Find::prune node, here's the code I got from it...

    if ($File::Find::name =~ m!^/some_dir/sub_dir!) {
        print "skipping $dir\n';
        $File::Find::prune = 1;
        return;
    }
[download]