sub number_of_digits {
    my $number = shift;
    my $base = shift || 10;

    1 + int( log($number) / log($base) )
}