my $call_recurse_tree = sub {
      my $node = shift;
      &recurse_tree($node);
   };

##</code><code>##

         # PROCESS CHILDREN LIST: recurse_tree will be called on each child of the input Dir Node
         Tree::Nary->children_foreach($node, $Tree::Nary::TRAVERSE_ALL, $call_recurse_tree);