perl -Mlocale -MPOSIX=LC_NUMERIC,setlocale -wle "setlocale(LC_NUMERIC,''); printf qq~%.2f\n~, 1;"
1,00