use HTML::TreeBuilder::XPath;

my $resp_obj = HTML::TreeBuilder::XPath->new_from_url(shift);

for my $el ($resp_obj->findvalues('/*')){ #Some XPpath in singlequotes
	print "$el\n", 'x' x 30, "\n";

}

##</code><code>##

fetch_url_xpath.pl 'http://some.url/path/file.html'