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