use XML::Atom::Client;
use XML::Atom::Entry;
use XML::Atom::Person;
use strict;

my $api = XML::Atom::Client->new;
$api->use_soap(0);
$api->username("username");
$api->password("password");

my $entry =  XML::Atom::Entry->new;
$entry->title("Testing Blogger via Perl");
$entry->content("Did it work?");

my $author = XML::Atom::Person->new;
$author->name("Dave");
$author->email("email\@gmail.com");
$entry->author($author);

$api->createEntry("https://www.blogger.com/atom/<blogid>", $entry) or warn $api->errstr;