Here is my script:

#!/usr/bin/perl -w
use strict;
use XML::RSSLite;
use LWP::UserAgent;
use HTTP::Headers;
use utf8;


my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;


my $URL = "http://www.boursier.com/syndication/rss/news/FR0004031839/FR";
my $response = $ua->get($URL);

if ($response->is_success) {

   my $content = $response->decoded_content((charset => 'UTF-8'));

   my %result;
   parseRSS(\%result, \$content);
   foreach my $item (@{ $result{items} }) {
            print "ITEM: $item->{title}\n";
        }

}