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