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