Select Code to Download

my $forms = $mech->forms();

...
      criteria     => 'exact'
   }
);

my $found;
foreach (@{$mech->forms()}) {
...
      criteria     => 'exact'
   }
);