perl -e 'print 0 + sprintf "%0.2f", 0.001'
0

perl -e 'print 0 + sprintf "%0.2f", 0.1234'
0.12