#!/usr/bin/perl
#
# eg7: use tie to write an SDBM
#
use strict;
use warnings;

use Fcntl;
use SDBM_File;

tie(my %secret, 'SDBM_File', 'secrets-sdbm', 
	O_RDWR|O_CREAT, 0666
   ) || die "oops, couldn't tie SDBM";
$secret{Davros}   = 1;
$secret{Zygon}    = 1;
$secret{Cyberman} = 1;
untie(%secret);
