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

open my $ofh, '>:utf8', '1097276_out.xml' or die $!;
XML::Twig->new(
	keep_spaces => 1,
	twig_print_outside_roots => $ofh,
	twig_roots => {
		tu => sub {
			my ($twig, $elt) = @_;
			$elt->set_att('creationid',"Simon Sim\xF6nsen");
			$elt->print($ofh);
		}
	},
)->parsefile('1097276.xml');
close $ofh;