Select Code to Download

# by bliako
# for https://perlmonks.org/?node_id=11117492
...
my $nodefound = $T->find_node_by_id('2.1');
$nodefound->add_child($newid, {name=>"new inserted node", id=>$newid})
+;
print $T->stringify()."\n";