#!/usr/bin/perl --
use strict; use warnings;
use XML::Twig;
my $objectsTwig = XML::Twig->new;
$objectsTwig->xparse('');
print $objectsTwig ->toString, "\n";
my $OBJECT_ROOT = $objectsTwig->root;
for( 1 .. 10 ){
my $object = XML::Twig->new;
$object->xparse('');
my $orphan = $object->root;
$object->set_root(undef); ### crucial
$orphan->cut;
$orphan->paste('last_child', $OBJECT_ROOT );
}
print $objectsTwig ->toString, "\n";
__END__