#
# eg6: a secretword
#
my $secretword = "Davros";
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 "What is the secret word: ";
	while(1)
	{
		my $guess = <STDIN>;
		chomp $guess;
	last if $guess eq $secretword;
		print "Wrong - guess again: ";
	}
}
