Not a solution, but a debug tool:

WWW::Mechanize::Shell lets you do all kinds of Mechanize stuff in a command shell, and spit whatever you did out as a valid perl mechanize script.