Select Code to Download

#!/usr/bin/perl

...
show_foo

  $n = 123;
  delete $::{n};
...

#OUT
123456

  $n = 123;
  sub get_n { $n }
...
123456

#!/usr/bin/perl

...
show_foo
n
Undefined subroutine & called at ...