perl -le 'print prototype "CORE::vec"'

##</code><code>##

$vec = '';
my ($offset,$bits) = (0, 4);
vec($vec, $offset, $bits) = 1;
$bits = unpack("b*", $vec);
print "$bits\n";