$form = $mech->form_number(1);
@inputs = $form->inputs;

foreach $input (@inputs)
        {
        print $input->type.'->'.$input->name."\n";
        }