use XML::DOM;

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