use LWP::UserAgent;
print LWP::UserAgent->new->post(
  'http://ll.jus.or.jp/2008/blog/archives/38/trackback',
  {qw{blog_name LLGolfHole9 title llfuture url http://ja.doukaku.org/207
    excerpt LLGolf最終ホールを打ってみた}})->content