Select Code to Download

  my $form = $mech->current_form;
  warn $form->find_input( 'shopwizard' );

my $form;
foreach ( $mech->forms ){
...
my @shopwizardForms = grep { $_->find_input( 'shopwizard' ) } $mech->f
+orms;
# or just:
my ($shopwizardForm) = grep { $_->find_input( 'shopwizard' ) } $mech->
+forms;