$bits = length(unpack("B*",pack("J")));