>perl -wMstrict -le
"my $n = 3;
 while ($n--) {
   my $i = $n * $n;
   }
 continue {
   print qq{n $n  i $i};
   }
"
Global symbol "$i" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.