RosettaCodeData/Task/Scope-modifiers/Perl-6/scope-modifiers-2.pl6

sub a {
    my $*dyn = 'a';
    c();
}
sub b {
    my $*dyn = 'b';
    c();
}
sub c {
    say $*dyn;
}
a();  # says a
b();  # says b