Displaying a number in binary using perl

Shell Programming and Scripting
1

printf FH2" 3'b%b : begin\n",$i;
where i is an integer in the loop
is displaying
3'b1 : begin

expected output was
3'b001 : begin

2 
printf FH2 " 3'b%03b : begin\n",$i;