perl -e 'print log($ARGV[0])/log(10),"\n"' 3e-320 perl --version