use strict;
use XML::Atom::Client;

local $| = 1;

my $hatena_user = "tomi-ru";
my $hatena_pass = shift || die "pass!\n";
my $hatena_api  = 'http://b.hatena.ne.jp/atom/feed?tag=later';

my $hatena = XML::Atom::Client->new;
   $hatena->username($hatena_user);
   $hatena->password($hatena_pass);

my $dc = XML::Atom::Namespace->new(dc => 'http://purl.org/dc/elements/1.1/');

use XML::Liberal;

XML::Liberal->globally_override('LibXML');

while (my $feed = $hatena->getFeed($hatena_api)) {
    for my $entry ($feed->entries) {
        for my $link ($entry->link) {
            print $link->href if $link->rel eq 'related';
            next if $link->rel ne 'service.edit';
            $hatena->deleteEntry($link->href) and print " ..delete.\n";
        }
    }
    sleep 1;
}