Select Code to Download

    $dir= $p_dir; # $File::Find::dir
    $name= $dir_name; # $File::Find::name
...
    # prune may happen here
    $prune= 0;
    { $wanted_callback->() };    # protect against wild "next"