my @qa_list = ($pagev->listFile($anslist), $pagev->listFile($unanslist));
my %questions = map { split(/\t/, $_, 2) } @qa_list;
my $answer = $cgi->param('answer');
print STDERR "$_ => $questions{$_}\n" foreach %questions;
my $questionslist = join("
", @qa_list);
my $aselect = $cgi->param('select');
####
View and Answer Questions!
List of questions and answers:
~questionslist~
Which question would you like to answer? (1, 2, etc.)