# jdporter's change...worked fine
my $goal = int(rand($high-$low+1))+$low;

while (1) {
	print "Enter a number between $low and $high: ";

	#The answer from the user
	my $answer = <STDIN>;
	chomp($answer);
# when I change the d to a D I get "Please enter a number only"
	if ($answer !~ /\d+/) {
		print "Please enter a number only\n";
		next;