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

our %debug;
our $d_area = "(default)";

sub import {
    my $caller = caller;
    no strict 'refs';
    *{ $caller . '::d_area' } = *Dsay::d_area;
    goto &Exporter::import
}