#!/usr/bin/perl -w
use Tree::Nary;
use strict;

my $testtree = Tree::Nary->new;
my $nodeone = $testtree->insert_data($testtree,1);
my $nodetwo = $testtree->insert_data($nodeone,2);
my $nodethree = $testtree->insert_data($nodetwo,3);

my $foundnode = $testtree->find($testtree,$Tree::Nary::PRE_ORDER,$Tree::Nary::TRAVERSE_ALL,3);