"print "This program will ask the user random questions from a file until all the questions have been answered.";
if (open QUESTFILE, '<questions.txt') {
        $count=0;
        while ($q=<QUESTFILE>) {
                $question[$count]=$q;
                $count=$count+1;
        }
}
else {
        print "Could not read questions from file question.txt\n";
exit;
}

if (open ANSFILE, '>answers.txt') {
        $count=0;
        while ($a=<ANSFILE>) {
                $answer[$count]=uc($a);

                $count=$count+1;
        }
}
else {
        print "Could not read answers from file answers.txt\n"; 
exit;
}
srand;
$times=0;
while ($times<10) {
$quest = int(rand ($#question+1));
print $question[$quest];
$ans = uc(<STDIN>);
print ANSFILE $ans;
$times=$times+1;
}
exit;"