binmode(STDOUT, ":utf8");
##</code><code>##

use XML::DOM;
binmode(STDOUT, ":utf8");
my $XmlParserObj = XML::DOM::Parser->new();
my $doc = $XmlParserObj->parsefile("in.xml");
my $str = $doc->toString();
print $str;