$agent = WWW::Mechanize->new(...);
...set up $agent...
$agent->LWP::UserAgent::request($form->click);