#!/usr/bin/perl -w

use strict;
use LWP::Simple 'get';
use XML::RAI;

my $rss = XML::RAI->parse(get(shift||die"please enter rss uri"));
my $title = $rss->channel->title;
my $link  = $rss->channel->link;

print "$title\n$link\n\n";

for my $item (@{$rss->items}) {
  $title = $item->title;
  $link  = $item->link;
  print "$title\n$link\n";
}