Select Code to Download

sub log10 {
        my $n = shift;
        return log($n)/log(10);
    }

  DB<36> $num = 1e12

...
  DB<40> p int($log10)
11                              # Oh one of Perl's DWIM show Float as 
+Integer
  DB<41>