#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my @files = '/root/Desktop/your.xml';
    
my $parser = XML::LibXML->new();
foreach my $file( @files) {
    my $doc = $parser->parse_file($file);
    my $cmm_root_path_var = $doc->findnodes("//Test/*");
    print $doc->to_literal(), "\n";
}