Muestra script en Perl

#! Perl
utilizar CGI;
$ Q = new CGI;
# Obtener los parámetros pasados al script
# # # # # # # # # # # # # # # # # # #
$ Name = $ q-> param ('nombre'); 
$ TestName = $ q-> param ('TestName');
$ NumQuestions = $ q-> param ('NumQuestions');
$ PassingGrade = $ q-> param ('PassingGrade');
$ Resultado = $ q-> param ('Score');
if ($ testName eq "" | | $ numQuestions eq "")
{
 print "Content-type: text / html \ n \ n";
 imprimir "<html>";
 imprimir "<head> <title> Fallo </ title> </ head>";
 imprimir "<body>";
 print "STATUS = 500";
 imprimir "<br>";
 print "No se pudo analizar resultados de la prueba debido a un error de parámetro.";
 print "</ body> </ html>"; 
 exit 0;
}
# # # # # # # # # # # # # # # # # # # # # 
# Obtener la hora actual
# # # # # # # # # # # # # # # # # # # # # 
($ S, $ min, $ hora, $ mday, $ lun, $ año, $ wday, $ yday, $ isdst) 
= Localtime (tiempo);
$ Año = $ 1.900 + años;
$ = $ Lun lun + 1;
$ Currtime = "$ año-$ lun-$ $ mday hora: $ min: $ s";

# # # # # # # # # # # # # # # # # # # # #
# Abre el archivo de datos de prueba para anexar y escribir los datos
. # # # # # # # # # # # # # # # # # # # # # $ TestName = ". Log";
abierta (TESTDATA ">> c: \ \ $ testName") or die;
TESTDATA print "$ currtime $ name $ numQuestions $ passingGrade $ score \ n";

# # # # # # # # # # # # # # # # # # # # #
# Cursos más antiguos producidos por el programa utiliza un índice basado en cero para el 
preguntas (es decir Question0 es la primera pregunta) '# cursos nuevos son una 
con base (es decir Pregunta1 es la primera pregunta) '
# Determinar cuál es " 
# # # # # # # # # # # # # # # # # # # # # 
$ StartIndex = 0;
$ Temp = $ q-> param ('
Question0 '); if ($ temp eq 
"")
{
 $ StartIndex = 1;
}
$ Index = $ startIndex;

# # # # # # # # # # # # # # # # # # # # #
# Escriba todas las preguntas y respuestas 
# # # # # # # # # # # # # # # # # # # # #
while ($ index <($ startIndex + $ numQuestions)) {
 $ QST = "pregunta $ index"; $ ans = "Respuesta $ index"; $ qval = $ q-> param
 ($ QST), $ aval = $ q-> param ($ ans);
 TESTDATA print "$ QST: $ qval \ n";
 testdata print "$ ans: $ aval \ n";
 $ Index + = 1;
}

cerca TESTDATA;
# # # # # # # # # # # # # # # # # # # # # # Réplica, que trabajó
# # # # # # # # # # # # # # # # # # # # Print $ q-> header ();
print "STATUS = 200 \ r \ n";