Select Code to Download

#!/usr/bin/env perl

...
dsay "debugging output from main";
one;
two;

hello from main
call to one:
...
call to common sub (d_area is two)
DEBUG two: debugging output from common_sub
DEBUG two: more debugging output from two

#
# Dsay.pm
...
}

1;

use Dsay;

    local $Dsay::d_area = '...';