use XML::Parser;
use XML::Parser::Expat;
use XML::Twig;
use XML::XPath;
undef $/;
$file = $ARGV[0];
open (IN, "<$file");
$xml = <IN>;
my $xp = XML::XPath->new(xml => "$xml");
my $nodeset = $xp->find('//h1/title'); # 

foreach my $node ($nodeset->get_nodelist) 
{
   my $tag=XML::XPath::XMLParser::as_string($node);
print "$tag\n";
}