#!perl
use warnings;
use strict;
use LWP::UserAgent;
my $title = 'エントリタイトル';
my $excerpt = 'エントリ要約ですよ';
my $url = 'http://d.hatena.ne.jp/shibaTest/20101022/p1';
my $blog_name = 'Dive into the Tech World!';
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
my $response = $ua->post(
'http://local.hatena.ne.jp:3000/shiba_yu36/20101022/1287724375', {
title => $title,
excerpt => $excerpt,
url => $url,
blog_name => $blog_name,
},
);
use YAML;
warn YAML::Dump($response);