As a side note to the previous comment, perldoc -f log also tells you that you have to implement the log10 by yourself if you ever need it:

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

This isn't really useful in your case, anyway.

Flavio