#!/usr/bin/perl
use strict;
use warnings;

use Tree;

my $tree = Tree->new('root');

foreach my $i (0..200){
    $tree->add_child( { at => $i }, Tree->new( "child $i" ) );
}
print "success\n";

__END__

$ perl test.pl
success