#!/usr/bin/perl

use XML::LibXML;

my $file   = shift || die "usage $0 <xmlfile>";
my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file( $file );

my $nodes  = $doc->findnodes( '/TheRoot/Message' );

foreach my $node ( @$nodes ) {
  print $node->toString();
}