use strict;
use warnings;
use XML::Twig;

my $org = <<XML;
<XXX>
</XXX>
XML

print "XML::Twig version $XML::Twig::VERSION\n";

my $twig = XML::Twig->new (
    twig_roots               => {'head' => \&editNode,},
    twig_print_outside_roots => 1
);

$twig->parse ($org);
$twig->flush ();


sub editNode {
    my ($t, $elt) = @_;

    $t->flush      ();
}