our @EXPORT = qw( %debug $d_area dsay );

##</code><code>##

our @EXPORT = qw( %debug *d_area dsay );

##</code><code>##

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

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

$debug{TWO} = 1;
one;
two;