Select Code to Download

sub print_tree
{
...
         + $tree->node
         + sum_tree($tree->right);
}

sub walk_tree
...
  walk_tree($tree, sub { $total += $_[0]; });
  return $total;
}