use strict; use warnings; use Tree; my ($i, $T, $n); $T = Tree->new('root'); my $t = $T; for($i=0;$i<100;$i++){ $n = Tree->new("child $i"); eval { $t->add_child({}, $n); }; if ($@) { # take some action... } $t = $n; } print "success\n";