use HTML::Form qw();
for my $form ($mech->forms) {
    print Dumper(HTML::Form->parse($form->{outerHTML}, $mech->uri));
}