Missing right curly or square bracket at line 926, at end of line.

##</code><code>##

Can't locate Term/ReadLine/Perl.pm in @INC

##</code><code>##

BEGIN {use CGI::Carp qw(fatalsToBrowser)}

use Cwd;
$cwd = getcwd();
$cwd =~ s/\\/\//g;

sub setData {
	my($zero) = chr(0);
	my($one) = chr(1);
	my($two) = chr(2);

	open(NDAT,">$path/trivia_dat.cgi");
	foreach $i (0..($n_q - 1)) {
		print NDAT "#";
		print NDAT $INPUT{"q$i"};
		print NDAT "$zero";
		foreach $j (0..($n_a - 1)) {
			if($INPUT{"q$i-c"} eq $j) {
				print NDAT $INPUT{"q$i-a$j"};
				print NDAT "$two"."$one";
			} elsif($j < ($n_a - 1)) {
				print NDAT $INPUT{"q$i-a$j"};
				print NDAT "$one";
			} else {
				print NDAT $INPUT{"q$i-a$j"};
				print NDAT "\n";
		}
	}
	close(NDAT);
}