<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w

open PATHFILE, "&lt; test.xpt" or die "can't open test.xpt: $!";
while ($path = &lt;PATHFILE&gt;) {
	next if $path =~ /^#/;
	chomp($path);
	print "$path\n";
	print `../../../samples/xgrep/xgrep '$path' test.xml 2&gt;&amp;1`;
	print "%\n";
}
</pre></body></html>