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