#!/usr/bin/env perl<\/div>
<\/div>
use LWP::UserAgent;<\/div>
use HTTP::Request;<\/div>
use UNIVERSAL::dump;<\/div>
use XML::Simple;<\/div>
use Data::Dumper;<\/div>
use YAML qw(LoadFile);<\/div>
<\/div>
$config = LoadFile "$ENV{HOME}/.posterous";<\/div>
<\/div>
my $req = HTTP::Request->new(GET => "http://posterous.com/api/getsites");<\/div>
$req->authorization_basic($config->{core}->{user}, $config->{core}->{pass});<\/div>
<\/div>
$content = LWP::UserAgent->new->request($req)->content;<\/div>
$content =~ s/name/title/g;<\/div>
print $content;<\/div>
print Dumper XMLin($content);<\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n