Select Code to Download

 my @nodes = $tree->traverse( $tree->PRE_ORDER );

use Tree (); 
my %nodes; 
...
die("Invalid data: Multiple roots\n") if @roots > 1; 
my $root = $roots[0];