#!/usr/bin/perl -w
#use strict;
use warnings;
use XML::RSS::LibXML;
use XML::LibXML;
use LWP::UserAgent;
use Data::Dumper;

#my ( $htmlInfile, $htmlOutfile, $cssOutfile ) = @ARGV;

my $html_link = "http://rss.news.yahoo.com/rss/topstories";
my $parser = XML::LibXML->new;

my $client = LWP::UserAgent->new();
my $capture = $client->get("$html_link") || die"$!\n";
useLibXmlParseXmlItems($capture->{_content});

sub useLibXmlParseXmlItems
{

    my $rss = XML::RSS::LibXML->new;
    $rss->parse($_[0]) || die "Could not parse. <$!>";

    my $xp = XML::LibXML::XPathContext->new($rss);

    my @nodes = $xp->findnodes("/rss/channel/item");

    #print @nodes;
}