Select Code to Download

my (@possible_values) = qw(view edit modify delete nuke);
my (%possible_values) = do { my $n; map { $_, $n++ } @possible_values;
+ };
...
$encoded_param = $possible_values{'mode'};

$decoded_param = $possible_values[$encoded_param];

sub Squish
{
        my ($what) = @_;
...

        return pack ("CS", 0x0E, length($what)).$what;
}