Select Code to Download

%FLUT = (
    'condition_1' => \&func_1,
...

$condition = ##  reduce the input to a known condition
$FLUT{$condition}->(@args);

package Command;

...
    my $O = shift;
    return ($O->( @_ ));
}

package Machine;

...


1;