#!/usr/bin/perl -w
use strict;
use RPC::XML::Client;
use Data::Dumper;

my $cli=RPC::XML::Client->new('http://www.sitename.com/wp/xmlrpc.php');

my $appkey="perl"; # doesn't matter
my $blogid=1; # doesn't matter (except blogfarm)

my $username="Jim";
my $passwd='_____';

my $text=<<'END';

This is the post content...

You can also include html tags...

See you!
END

my $publish=0; # set to 1 to publish, 0 to put post in drafts

my $resp=$cli->send_request('metaWeblog.newPost',
 $blogid,
 $username,
 $passwd,
 {
   'title'       => "this is doodoo",
   'description' => $text,
   'custom_fields' => {
     { "key" => "height", "value" => 500 },
     { "key" => "width", "value" => 750 }
   },
 },
 $publish);

exit 0;