sub one {
    local $d_area = "one";
    dsay "debugging output from one";
}