#!/usr/bin/perl -w
use strict;
use warnings;
use XML::LibXML;

my $html_link = "http://rss.news.yahoo.com/rss/topstories";

my $dom = XML::LibXML->load_xml(location => $html_link);

my $xp = XML::LibXML::XPathContext->new($dom);
my @nodes = $xp->findnodes("/rss/channel/item");
print $_->toString
    for @nodes;