print $_ . "\n" for @{ $mech->forms() };