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

--------

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