$ perl -e'printf("%d,%0.f\n",-0.1,-0.1)'
0,-0