##############################

#!/usr/bin/perl -Tw

use strict;
use XML::RSS::Parser::Lite;
use LWP::Simple;
    
my $xml = get("http://www.scripting.com/rss.xml");
my $rp = new XML::RSS::Parser::Lite;
$rp->parse($xml);
       
print "Content-type:text/html\n\n";       
        
my $page_title = $rp->get('title');
my $blog_url = $rp->get('url');
my $blog_desc = $rp->get('description');

print "<a href=$blog_url>$page_title</a>";
print "<BR>$blog_desc<P>";
print "<hr>\n";

for (my $i = 0; $i < $rp->count(); $i++) 
{
my $it = $rp->get($i);
my $item_title = $it->get('title');
my $item_url = $it->get('url');
my $item_description = $it->get('description');
     
print "<a href=$item_url>$item_title</a><P>$item_description<P>\n";

}

##############################