Select Code to Download

#!/usr/bin/env perl                                                   
+                                                       

...
$tree->splice(-keep_node => \@nodes);
exit(0);

my $tree = $treeio->next_tree();
my $root_node = $tree->get_root_node;
...
    print "\n";
}