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