sub one {
    say "call to one:";
    local $opt{d_area} = "one";
    dsay "debugging output from one";
    common_sub;
    dsay "more debugging output from one";
}
# Etc.