in reply to CHAR_BIT != 8

printf("%.0f bits\n",log(ord(~"\0")+1)/log(2));

In Section Seekers of Perl Wisdom