use Net::Blogger;

my $blogger = Net::Blogger->new({
    debug    => 1,
    appkey   => '0123456789ABCDEF', # doesn't matter?
    blogid   => $blogid,
    username => $username,
    password => $password,
});

my $result = $blogger->newPost({
    postbody => \'<p>This is text</p><hr/><p><strong>Whee!</strong></p>',
    publish  => 1,
});

use Data::Dumper;
print Dumper($result);