c:\@Work\Perl\monks>perl -wMstrict -le
"my $p = 30;
 my $n = 1.111111111111111111111111111111;
 ;;
 printf '%0.*f', $p, $n;
"
1.111111111111111200000000000000