$ perl -e 'my $val = 8.95; my $mval = $val * 100; printf("%d %d %f %d %f\n", int($val * 100), $val * 100, $val * 100, $mval, $mval);'
894 894 895.000000 894 895.000000