#
# eg10: secret words from a dbm file
#
dbmopen( my %issecretword, "secretwords", 0666 ) || die;

print "Please enter your name: ";
my $name = <STDIN>;
chomp $name;
$name = ucfirst(lc($name));
if( $name =~ /^Dun[ck]/ )
{
        print "\nwotcha Dunky babe!\n";
} else
{
	print "\nhello $name!\n";
	print "Please enter one of the secret words: ";
	while(1)
	{
		my $guess = <STDIN>;
		chomp $guess;
	last if $issecretword{$guess};
		print "Wrong - guess again: ";
	}
}

dbmclose( %issecretword );
