use strict;
use warnings;

my %DAT;
checkdat();
mach was mit %DAT;

#+~~~~~~~~~~~~~~~~~~~~~~~~~~~+#

sub checkdat{
  if ((-e "db") || (-e "db.dir") || (-e "diverse mir unbekannte Möglichkeiten")){
    dbmopen (%DAT,"db",undef);
  }else{
    dbmopen (%DAT,"db",0644);
    lies ein file aus, und erstelle %DAT;
  }
}