$ perl -wMstrict -le 'my $x="A"; do { print $x; my $x="B";
  print $x }; print $x'
A
B
A
$ perl -wMstrict -le 'do { my $x="A" }; print $x'
Global symbol "$x" requires explicit package name (did you forget to declare "my $x"?) at -e line 1.
Execution of -e aborted due to compilation errors.

##</code><code>##

$ perl -wMstrict -le 'sub Foo::DESTROY {print "BLAM"}; print "A";
  do { my $x = bless {}, "Foo" }; print "B"'
A
B
BLAM
$ perl -wMstrict -le 'sub Foo::DESTROY {print "BLAM"}; print "A";
  do { my $x = bless {}, "Foo"; 1 }; print "B"'
A
BLAM
B