Help for this page
my $t = XML::Twig->new( twig_roots => {'nitf/body/body.head/hedline/hl1' => \&fix_hl1, ... twig_print_outside_roots => 1, keep_encoding => 1, );
sub fixup { my ($tree, $elem) = @_; ... $elem->print; }