my $agent = WWW::Mechanize->new();
$agent->credentials($uri->host_port, "TheRealm", "user", "pass");