use POSIX qw[log10];

print log10 312;
2.49415459401844