$ perl -e 'printf "%.0f\n", log(~0+1)/log(2)'
32