Help for this page
Select Code to Download
Select
or
download this
sub log10 { my $n = shift; return log($n)/log(10); }