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

##</code><code>##

$ perl -MPOSIX -e 'my $val = 8.95; printf("%d\n", POSIX::floor($val * 100));'
894

##</code><code>##

$ 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