Select Code to Download

my $form = $mech->form_number(1);
my @keyValuePairs = $form->form();

my @newKeyValuePairs;
my %testFields =
...
    push (@newKeyValuePairs, $key, $value)
          unless (exists($testFields{$key}));
}

$mech->set_fields(
    @newKeyValuePairs,
...
    new_users  =>
    join ("\n", @{$newProjects{$thisProject}}),
);

Input 'rm' is readonly at /usr/lib/perl5/vendor_perl/5.8.8/WWW/Mechani
+ze.pm line 1233
Input 'member' is readonly at /usr/lib/perl5/vendor_perl/5.8.8/WWW/Mec
+hanize.pm line 1233
Input 'p_id' is readonly at /usr/lib/perl5/vendor_perl/5.8.8/WWW/Mecha
+nize.pm line 1233