Quote

kabel@linux:~> perl -MO=Concise,-exec -e 'printf ("%.2f", 15)'
1 <0> enter
2 <;> nextstate(main 1 -e:1) v
3 <0> pushmark s
4 <$> const(SPECIAL Null)[t1] s
5 <$> const(SPECIAL Null)[t2] s
6 <@> prtf vK
7 <@> leave[t1] vKP/REFC
-e syntax OK
kabel@linux:~> perl -MO=Concise,-exec -e 'print sprintf ("%.2f", 15)'
1 <0> enter
2 <;> nextstate(main 1 -e:1) v
3 <0> pushmark s
4 <$> const(SPECIAL Null)[t2] s
5 <@> print vK
6 <@> leave[t1] vKP/REFC
-e syntax OK
kabel@linux:~>