D:\>perl -le "$x = 8.95 * 100; print int($x);"
895

##</code><code>##

D:\>perl -le "$x = 8.95 * 100; print int($x);"
894

##</code><code>##

D:\>perl -V:nvtype
nvtype='long double';