in reply to http digest auth

Try adding this: 
$mech->credentials($username, $password)

[download]

In Section Seekers of Perl Wisdom