Select Code to Download

    <?xml version="1.0" encoding="UTF-8"?>
    <arbre>
...
      </branche>
      <!--etc...-->
    </arbre>

    <?xml version="1.0" encoding="UTF-8"?>
    <arbre>
...
      </branche>
      <!--etc...-->
    </arbre>

    <arbre>
      <branche name="courbe" type="conifere">
...
      </branche>
      <!--etc...-->
    </arbre>

sub _mergeXML
{
...

    open(FILE,">$FILEOUT") or die $!; print FILE $new->toString;close 
+FILE;
}