Quick Perl function to calculate the number of bits required to store a given number.

sub bits_required {
	my ($n) = @_;

	# Handle special case for 0
	return 0 if $n == 0;

	# Use logarithm to calculate the number of bits
	my $bits = int(log($n) / log(2)) + 1;
	return $bits;
}