send-trackback-to-hatena.pl

#!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);