Select Code to Download

sub outloop { #NOOB  GOTCHA
    my $k = "string";
    sub inside { return $k."cheese" }
    return inside( );
}

sub outer { #APPARENTLY CORRECT
    my $k = "string";
    local *inside = sub { return $k."cheese" };
    return inside( );
}