#!/usr/local/bin/perl use strict; use XMLRPC::Lite; eval { my $server_url = 'http://app.cocolog-nifty.com/t/api'; my $new_id; my $account = ***; my $password = ***; my $blog_id = ***; my $entry = { description => "xxx", title => "XM", date…