記述途中です。

XML::RSS

my $rss = new XML::RSS;
$rss -> parsefile( $file );
foreach my $item ( reverse @{$rss -> {'items'} ){}