use strict;
use warnings;
use WebService::Simple;
use Data::Dumper;

my $hatenastar = WebService::Simple->new(
    base_url        => "http://s.hatena.ne.jp/blog.json/",
    response_parser => 'JSON',
);

my $response = $hatenastar->get( "http://d.hatena.ne.jp/hatenastar/",
			     { callback => "callback" } );

print Dumper $response->parse_response;