do {
	print "\nPick a letter between a and d.\n ";
	chomp($reply = <STDIN>);
} while (lc $reply ne ('a' .. 'd'));