Select Code to Download

my @bits = split //, unpack "b*", $vec;

use integer;
my $vec = 42;
...
print " <-- bit positions set\n";
print join ', ', @bits;
print " <-- bits \n";