http://www.perlmonks.org?node_id=46894


in reply to Power of two round up.

TIMTOWTDI
sub binround { my $out = 1; my $in = shift; while ($in) { $in >>= 1; $out += $out; } $out; }