use Net::Blogger;
use Data::Dumper;
$b = Net::Blogger->new(AppKey=>'8DB4B79CADF9708155A26FD21D23240C8F118D1308');
$b->Username("sbrnr");
$b->Password("*******");
print Dumper($b->getUsersBlogs());