Wide character in print at /usr/lib/perl5/site_perl/5.14/XML/Twig.pm line 8403.
Wide character in print at /usr/lib/perl5/site_perl/5.14/XML/Twig.pm line 8403.
Wide character in print at /usr/lib/perl5/site_perl/5.14/XML/Twig.pm line 8403.

##</code><code>##

use warnings;
use strict;
use XML::Twig;
use File::Slurp;
use utf8;
use File::Slurp qw(read_file write_file);
    

my $infile = shift; 
my $filename = $ARGV[2];

XML::Twig->new(
    keep_spaces => 1,
    twig_print_outside_roots => 1,
    twig_roots => {
        tu => sub {
            my ($twig, $elt) = @_;
            $elt->set_att('creationid','Simon Simonsen');
            $elt->print;
        }
    },
)->parsefile( $infile );

write_file $filename, {binmode => ':utf8'}, $infile;