$ perl -E " say  log(~0)/log(2) "
31.9999999996641

$ perl -E " say  int 0.999+log(~0)/log(2) "
32