use XML::LibXML;
 
my $file = 'y:\tmp\open\HP1.xml';
my $xp = XML::LibXML->new(filename=>$file);
 
# An XML::XPath nodeset is an object which contains the result of
# smacking an XML document with an XPath expression; we'll do just
# this, and then query the nodeset to see what we get.
my $nodeset = $xp->find('//IPHostname');