#
#	mksecret: create the secret words DBM file
#
dbmopen( my %secret, "secretwords", 0666 ) || die;
$secret{"Davros"}   = 1;
$secret{"Zygon"}    = 1;
$secret{"Cyberman"} = 1;
dbmclose  %secret ;
