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