Select Code to Download

  sub A {
    local $x = 3;
...
  my $x = 2;

  print &A; #prints 3 not 2

  sub A {
    $x = 3;
...
  my $x = 2;

  print &A;