Help for this page
$bits |= (1<<$val)
if( unpack( "%16B*", pack("n", $bits)) == 1 ) { my $ret = 0; ... }; return $ret; };