$mechanize->credentials("server:49282","Digest realm", $username=>$password);

##</code><code>##

WWW-Authenticate: Digest realm="GWAVA Console", ...