Select Code to Download

my %fields = (
   name => "Richard",
...
   forum_user => "xxxxx",
   forum_pass => "yyyyy",
);

    $mech->submit_form(
        form_name => $search_form,
        fields      => \%fields,  # pass reference to %fields
    );