basic http authentication example

basic-authenticate.pl

#!/usr/bin/env perl

use LWP::UserAgent;
use HTTP::Request;
use MIME::Base64;
use YAML qw(LoadFile);
use Data::Dumper;

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


$request = HTTP::Request->new(GET => "http://posterous.com/api/getsites");

$profile = encode_base64($config->{core}->{user} . ":" . $config->{core}->{pass});

$request->header( Authorization => "Basic $profile" );

$ua = LWP::UserAgent->new;

$response = $ua->request($request);

print $response->content;