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