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);
}
[download]