using LWP with HTTP Basic Authentication

lwpex.pl

#!/usr/bin/env perl

use LWP::UserAgent;
use HTTP::Request;
use UNIVERSAL::dump;
use XML::Simple;
use Data::Dumper;
use YAML qw(LoadFile);

$config = LoadFile "$ENV{HOME}/.posterous";

my $req = HTTP::Request->new(GET => "http://posterous.com/api/getsites");
$req->authorization_basic($config->{core}->{user}, $config->{core}->{pass});

$content = LWP::UserAgent->new->request($req)->content;
$content =~ s/name/title/g;
print $content;
print Dumper XMLin($content);