% perl -le 'print vec(0x0, 5,1)'
1

##</code><code>##

% perl -le 'print vec(0x0, 6,1)'
0

##</code><code>##

% perl -le 'print vec("", 5,1)'
0

##</code><code>##

% perl -le '@bits = split(//, unpack("b*", 0x0)); print "@bits"'
0 0 0 0 1 1 0 0