Select Code to Download

$mech->fields(button3=>'button3', button2 => undef, button1 => undef);

$mech->submit_form(
    fields      => {
...
        button3 => 'button3',
        }
    );