#!/usr/local/bin/perl

print ("What is 17 plus 26?\n");
$correct_answer = 43;     # the correct answer
$input_answer = <STDIN>;
chop ($input_answer);
until ($input_answer == $correct_answer) {
        print ("Wrong! Keep trying!\n");
        $input_answer = <STDIN>;
        chop ($input_answer);
}
print ("You've got it!\n");
