#!/usr/bin/perl

use Feed::Find;
use URI::Fetch;
use XML::Feed;

$uri="http://feeds.feedburner.com/ImAmusedArentYou";

my @feeds = Feed::Find->find($uri);
foreach $feed (@feeds) {
    my $feed = XML::Feed->parse(URI->new($feed))
        or die XML::Feed->errstr;
    print $feed->title, "\n";
    for my $entry ($feed->entries) {
        print $entry->title, "\n";
        my $content = $entry->content;
        print $content->body, "\n\n";;
    }
}