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;

##</code><code>##

HTTP/1.1 200 OK Connection: close Date: Wed, 20 Apr 2013 20:54:15 GMT Pragma: no-cache Content-Length: 186386 Content-Type: text/html Client-Date: Wed, 20 Apr 2005 20:54:24 GMT Client-Peer: 66.210.81.31:80 Client-Response-Num: 1 Refresh: 0360