perl -e "my $val = 8.95; printf('%d',int(($val + 0.001) * 100));"
895