use strict;

# generate a 64-bit all-1 mask
my $mask;
for (my $i=0; $i<64; $i++) {
	vec($mask,$i,1)=1;
}

# get a byte of value from 17
my $value = vec($mask,16,8);
print "$value\n";

##</code><code>##

vec($mask,0,8)