Have a look at LPW::Authen::Basic

A simple snippet, taken from lwpcook manpage (perldoc lwpcook):

         use LWP::UserAgent;
         $ua = LWP::UserAgent->new;
         $req = HTTP::Request->new(GET => 'http://www.linpro.no/secret
+/');
         $req->authorization_basic('aas', 'mypassword');
         print $ua->request($req)->as_string;
[download]

-- TMTOWTDI