Perlでブログサービスの投稿APIを使う方法

#!/usr/local/bin/perl
use strict;
use warnings;

sub post_blog {
	my ($entry_point, $user, $passwd, $title, $body) = @_;
	use XML::Atom::Client;
	use XML::Atom::Entry;
	my $api = XML::Atom::Client->new;
	$api->username($user);
	$api->password($passwd);

	my $entry = XML::Atom::Entry->new;
	$entry->title($title);
	$entry->content($body);
	my $EditURI = $api->createEntry($entry_point, $entry);
}

sub livedoor_post {
	my $user = 'アカウント名';
	my $passwd = 'パスワード';
	my $api = 'http://cms.blog.livedoor.com/atom ';
	my $title;
	my $body;

	$title = 'ブログタイトル';
	$body = '本文ほにゃらら。';

	post_blog($api, $user, $passwd, $title, $body);
}