perl -wE "say int(-35784.45 * 100 - 0.5);"
-3578445