warn "dbm exists" if dbmopen(my %hash, "your_data");
warn "dbm_exists" if glob('your_data.{pag,db,dir}');