dbmopen(%DATA, $database, 0600)