#!/usr/bin/perl -w

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

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

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