c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 42;
 if ($x) {
   my $x = $x++;
   print $x;
   }
 print $x;
"
42
43