#!/usr/local/bin/perl 
use strict; 
use Encode; 
use LWP::Simple; 
use XML::RSS; 
 
my @RSS_URLs = ("http://rss.cnn.com/rss/cnn_us.rss"); 
 
binmode (STDOUT); 
binmode (STDOUT, ":encoding(utf8)"); 
 
for my $url (@RSS_URLs) { 
    my $document = LWP::Simple::get($url) or die "cannot get content from $url"; 
    my $rss = XML::RSS->new; 
 
    $rss->parse($document); 
    for (@{$rss->{items}}) { 
	print $_->{title} . "\n"; 
    } 
}