Help for this page
sub bin2dec { return unpack("N", pack("B32", substr("0" x 32 . shift, -32))); }
# Given a lsb-first bitstring, returns # a 2s complement signed integer ... return $result; }