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