TypePad.jp's getFeed

#!/usr/bin/perl

use strict;
use warnings;

use XML::Atom::Client;
use XML::Atom::Entry;

my $api = XML::Atom::Client->new;
$api->username('YourUserName');
$api->password('YourPassword');

my $FeedURI = 'http://www.typepad.jp/t/atom/weblog/blog_id=YourBlogID';
my $feed = $api->getFeed($FeedURI)
    or die("can not get feed:");
for my $entry ($feed->entries) {
    print $entry->title."\n";
}