#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Net::Blogger::Engine::Blogger;
use SOAP::Lite trace => 'debug';

my $blogger = Net::Blogger::Engine::Blogger->new();
$blogger->Proxy('https://www.blogger.com/api/RPC2');
$blogger->Username('username');
$blogger->Password('password');
$blogger->AppKey('0123456789ABCDEF');

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

print Dumper($post), "\n";