#!/usr/bin/perl -w

use strict;
use URI;
use XML::Atom::Feed;

my $feed = XML::Atom::Feed->new(URI->new ('http://mildlydiverting.blogspot.com/atom.xml'));

for my $entry ($feed->entries()) {
       print $entry->title()."\n";
}