sub common_sub {
    say 'call to common sub (d_area is ', get_darea(), ')';
    dsay "debugging output from common_sub";
}

sub one {
    say "call to one:";
    my $_scope = set_darea('one');
    dsay "debugging output from one";
    common_sub;
    dsay "more debugging output from one";
}

sub two {
    say "call to two:";
    my $_scope = set_darea('two');
    dsay "debugging output from two";
    common_sub;
    dsay "more debugging output from two";
}