$ perl -e 'vec( $foo, 63, 1) = 1; print unpack( "b64",$foo),$/'
0000000000000000000000000000000000000000000000000000000000000001