#!/usr/bin/perl
use strict;

use HTTP::Request;
use LWP::UserAgent;


my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>'http://perlmonks.com/index.pl');
$req->authorization_basic('maddfisherman', '********');
my $content = $ua->request($req)->as_string;