in reply to Power of two round up.
TIMTOWTDI
sub binround { my $out = 1; my $in = shift; while ($in) { $in >>= 1; $out += $out; } $out; }
In Section
Cool Uses for Perl