#!/usr/bin/perl -w
use strict;
use XML::RSS::Parser;
use FileHandle;

my $src = ('http://errr-online.com/e107_files/backend/news.xml');
my $p = XML::RSS::Parser->new;
my $feed = $p->parse_uri($src);
# output some values 
my $feed_title = $feed->query('/channel/title');
print $feed_title->text_content;
foreach my $i ( $feed->query('//item') ) { 
    my $node = $i->query('title');
    my $lnk = $i->query('link');
    print '<a href="';
    print $lnk->text_content;
    print '">';
    print $node->text_content."</a>\n";
}