use FindBin;
use lib $FindBin::Bin;
use basedat;