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