$tree->traverse(sub {
   my ($t) = @_;
   print(("\t" x $t->getDepth()) . $t->getNodeValue() . "\n");
});