sub display_questions()
{
   my $template = HTML::Template->new(
    filename => '/home/www/elderlinda/quiz-template.tmpl', 
    die_on_bad_params => 0);
   $template->param(question => $qref->{question},
                        ans_a => $qref->{ans_a},
                        ans_b => $qref->{ans_b},
                        ans_c => $qref->{ans_c},
                        category => param("category"),
                        number => $qref->{number}
                        );
   print $template->output;
}

##</code><code>##

sub check_answer()
   {
   my $subans = param("ANS");
   my $qnum = $qref->{number};
   ...
}