use XML::LibXML;
use Data::Dumper;

	my $xml_feed = "C:/xml_learn/g_headlines.xml";

my $parser = XML::LibXML->new;
my $dom = $parser->parse_file($xml_feed) or die;

my @titles = $dom->getElementsByTagName("title");
foreach my $t (@titles) {
	print $t->firstChild->data, "\n";
}