Select Code to Download

# Setup
my @ok;
...
if ($ok[$variable]) {
   ...
}

# Setup
my %fruit;
...
if ($fruit{$object}) {
   ...
}

# Setup
my %dispatch = (
...
} else {
   die("Invalid command $command\n");
}