Select Code to Download

sub outer {
    my ($x) = @_;
...

outer(4);  # Prints 4
outer(6);  # Prints 4!!!

sub named { ... }

BEGIN { *named = sub { ... }; }