my $agent = WWW::Mechanize->new();
$agent->get("http://my.server.com/");
my $req = $agent->req();
$req->authorization_basic($user, $pass);
$agent->follow("Some Link");
 
print $agent->content();