use XML::Smart;
use Encode;

my $XML = XML::Smart->new(q`<?xml version="1.0" encoding="UTF-8" ?>
<MSR-ISSUE xmlns="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="my.xsd">
</MSR-ISSUE>`, 'XML::Smart::Parser');

my $test_in_incoming_xml = "Auch wenn man es nach Jahren guter Beschäftigung kaum verstehen kann";

utf8::upgrade($test_in_incoming_xml);
$XML->{'MSR-ISSUE'}{'SHORT-NAME'}->content(0,$test_in_incoming_xml);
my $xmlfile = "foo.xml";
$XML->save($xmlfile, nometagen => 1, forceutf8 => 1);