Select Code to Download

my @teacher_input = $mech->find_all_inputs( { 
                                              type     => 'option',
...
Reference found where even-sized list expected at /usr/local/share/per
+l/5.10.0/WWW/Mechanize.pm line 973.
 at /usr/local/share/perl/5.10.0/WWW/Mechanize.pm line 973

  # get all text or textarea controls called "customer"
    my @customer_text_inputs =
...
            name       => 'customer',
        }
    );