package Tree;

sub add_item {
   my ($self, $item) = @_;
   my $parent_node = ...;
   $parent_node->add(new Node($item));
}