#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use XML::RSS::Parser;

my $agent = LWP::UserAgent->new;

my $RSS = $agent->get( 'http://feeds.feedburner.com/BicyclemarksCommunique' );
my $rssresult = $RSS->content();

my $p = new XML::RSS::Parser;
my $feed = $p->parsefile( $rssresult );

# output some values
my $title = XML::RSS::Parser->ns_qualify('title',$feed->rss_namespace_uri);
print $feed->channel->children($title)->value."\n";
print "item count: ".$feed->item_count()."\n\n";
foreach my $i ( $feed->items ) {
       map { print $_->name.": ".$_->value."\n" } $i->children;
       print "\n";
}