$ perl -v|grep "This is perl"
This is perl, v5.10.1 (*) built for i686-linux-thread-multi
$ uname -i -o -r
2.6.9-89.0.2.EL.msdw.1largesmp x86_64 GNU/Linux
$ perl -Mbignum -e '$number=330978816.3082480433473810957254665863937;
+$number=(int(((log($number)/log(10))*10)+0.5))/10;print"$number\n";'
8.5
[download]