use XML::Atom::Entry;

my $PostURI = 'http://www.vox.com/services/atom/svc=post/collection_id=mkmkmk';
my $api = XML::Atom::Client->new;
$api->username('mogemoge@gmail.com');
$api->password('mogemoge');

my $entry = XML::Atom::Entry->new;
$entry->title('Atomのチカラ');
$entry->content('XML::Atomを使って投稿しますヨ');

my $EditURI = $api->createEntry($PostURI, $entry);
print $EditURI;