my %XYZ;
unless (dbmopen (%XYZ,"name",undef)){
  dbmopen (%XYZ,"name",0644);
  mach was;
}