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