use GDBM_File;
tie(my %dataset, 'GDBM_File', 'tmp.db', &GDBM_NEWDB, 0600) or die;
...