johngg@shiraz:~/perl > perl -Mstrict -Mwarnings -E '
my $vec;
vec( $vec, 0, 8 ) = 57;
say qq{Bit $_: }, vec( $vec, $_, 1 ) ? q{set} : q{not set}
   for 0 .. 7;'
Bit 0: set
Bit 1: not set
Bit 2: not set
Bit 3: set
Bit 4: set
Bit 5: set
Bit 6: not set
Bit 7: not set