Select Code to Download

use strict; use warnings;
my $val = 1;
...
  print "when scopes collide: $val\n";
}
print "back in original file scope: $val\n";