>perl -wMstrict -le
"my $s;
 $s =  04;  print $s;
 $s = 011;  print $s;
"
4
9