Select Code to Download

  $n = 123;
  delete $::{n};
  eval '$n=456';
  print $n;
  eval 'print $n';

use feature 'say';

...
        say;
    }
}

$n        => 10
$Foo::n   => 10
...
$n        => 10
$Foo::n   => 10
$Foo::{n} =>