#!/usr/bin/perl
 
use LWP::UserAgent;
use XML::RSS;
 
# Settings
my $rss1 = "http://www.dieter-broers.de/blog.xml";    # Valid XML-RSS - W3C-syntax-checker - does not work!
my $rss2 = "http://www.gedankendoping.de/feed";        # Also valid - does work?
 
# Load data
my $ua = LWP::UserAgent->new();
my $response = $ua->get($rss2);                # Change here to $rss1 and the error will appear...
my $ticker=$response->content();
 
# Parse RSS
my $rss = XML::RSS->new(encoding=>'utf-8');
$rss->parse($ticker);
 
# Output
foreach $item (@{$rss->{'items'}}) {
    my $title = $item->{'title'};
    print($title."\n");
    }