#! /usr/bin/perl -w

use strict;
use warnings;

use CGI;
use LWP;
use XML::RSSLite;
use Data::Dumper;

my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html('RSS Feed');

my $rssUrl = 'http://news.bbc.co.uk/rss/newsonline_uk_edition/business
+/rss091.xml';

my $rssContent;

my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 
 my $response = $ua->get($rssUrl);
 
 if ($response->is_success) {
     $rssContent = $response->content;  # or whatever
 }
 
print "Getting $rssUrl\n";
# print $response->code, "Content ->", $rssContent;

if ($rssContent)
{
    my %rssHash;
    parseRSS(\%rssHash, \$rssContent);
    
    print $cgi->h1($rssHash{'title'});
    print $cgi->a({href=>$rssHash{'image'}->{'link'}},
            $cgi->img({src=>$rssHash{'image'}->{'url'}})
            );
    
    foreach my $item (@{$rssHash{'item'}})
    {
    print "<p>\n",
    "Title: $item->{'title'}<br>\n",
    "Desc:  $item->{'description'}<br>\n",
    "Link:  <a href=\"$item->{'link'}\">$item->{'link'}</a>\n";
    }
#    print "<pre>", Dumper(\%rssHash), "</pre>";
}
else
{
    print $cgi->h1("Error ",$response->message);
}

print $cgi->end_html();
[download]