Select Code to Download

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

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

sub one {
    local $d_area = "one";
...
$debug{TWO} = 1;
one;
two;