#!/usr/bin/perl -w -I.

use LWP::Simple;
use RSSLite;

my $content = get('http://www.vex.net/parnassus/parnassus.rss')
  or die "Can't get the content!";

my %result;

parseXML(\%result, \$content);

print "=== Channel ===\n",
      "Title: $result{'title'}\n",
      "Desc:  $result{'description'}\n",
      "Link:  $result{'link'}\n\n";

my $item;
foreach $item (@{$result{'items'}}) {
  print "  --- Item ---\n",
        "  Title: $item->{'title'}\n",
        "  Desc:  $item->{'description'}\n",
        "  Link:  $item->{'link'}\n\n";
}