> perl -e 'print (8.78 * 100 )
878
> perl -e 'printf("%d", (8.78 * 100 ))'
877