#!/usr/bin/perl

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

#$url="http://blog.wilpig.org/test.rss";
$url="http://feeds.feedburner.com/ImAmusedArentYou";
#$url="http://www.memestreams.net/users/wilpig/?type=rss";

$blog=1;
$author="wilpig";

my @feeds = Feed::Find->find($url);
for my $uri (@feeds) {
print "$uri \n";
    my $res = URI::Fetch->fetch($feeds[0])
        or $warn->("Can't fetch feed $feeds[0], skipping"), next;

    my $feed = XML::Feed->parse(\$res->content)
        or $warn->("Can't parse feed $feeds[0], skipping"), next;

     for my $entry ($feed->entries) {
        my $id = $entry->id;
#        my $issued = $entry->issued || DateTime->now();
        my $issued = $entry->issued;
        print "$id \n $issued \n";
     }
}