my $GetContent = XML::LibXML->load_xml(location => $XmlFile);
foreach my $xmlelement ($GetContent->findnodes('/XML')) {
 my $Information = $xmlelement->findvalue('./Tag');
 print $Information
}