CODE $mech->submit_form( form_number => $number, fields => \%fields, ) or die "Error"; }