Perl의 log함수는 자연로그(밑이 e인) 로그함수입니다. (밑이 10인)상용로그를 구하려면 다음과 같이 합니다.

$val_for_log10 = log($param)/log(10);