use Dsay; package Dsay; our $d_area; package main;