tie (%HASH, "DB_File", $filename, O_RDWR) or die "Can't open $filename: $!\n";