Select Code to Download

tie (my %hash, 'DB_File', $file, O_RDWR, 0600) || next;

tie (my %hash, 'DB_File', $file, O_RDWR, 0600, $DB_HASH) || next;