#
# eg9: secretwords from file
#
my %issecretword = ();
open( my $in, '<', "secretwords" );
while( my $line = <$in> )
{
	chomp $line;
	$issecretword{$line} = 1;
}
close( $in );

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: ";
	}
}
