#!/usr/bin/perl
use XML::LibXML;
my $requestId = $ARGV[0];
my $fileName = "sample.xml";

print "$requestId\n";
print "$fileName\n";

my $doc = XML::LibXML->load_xml(string=>$fileName);
my @nodes = $doc->findnodes("/*/EventInfo[\@RequestId='$requestId']");
for my $node (@nodes) {
  print "### ", $node->getParentNode->toString, " ###\n\n";
}