はてなグループのキーワード一覧取得

#!/usr/bin/perl
use strict;
use Web::Scraper;
use URI;

my $uri     = URI->new("http://dann.g.hatena.ne.jp/keywordlist");
my $scraper = scraper {
    process '//div[@class="refererlist"]/ul/li/a', 'keywords[]' => {
        name => 'TEXT',
        url  => '@href',
    };  
};
my $result = $scraper->scrape($uri);

use Data::Dumper;
warn Dumper $result;