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