$ perl -le "print log(~0+1)/log(2)"
32

##</code><code>##

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