sub outer {
    my ($x) = @_;
    sub inner {
        say $x;
    }
    inner();
}          # Warns Variable "$x" will not stay shared

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

##</code><code>##

sub named { ... }

##</code><code>##

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