#!/usr/bin/perl

use XML::LibXML;

 $parser = XML::LibXML->new();
 $doc    = $parser->parse_file('TreeList_dup.xml');
 print $doc->toString;