Posible intento de poner comentarios en qw () lista a ./stage3.cg

Hola a todos;

I m tratando de crear una tienda online interface.Im nuevo en cgi.Ive se mantenga por debajo de la recepción de mensajes de error y no sé por qué?

Posible intento de poner comentarios en qw () ./stage3.cgi lista en la línea 36.

Cualquier idea de lo que podría estar causando este error

***** ***** mi código

#! / usr / bin / perl-wT
utilizar CGI qw: standard /;
velcome $ = "Esta es mi stage3";
$ productos = "Estos son nuestros productos";
###Imprimir cabeceras
print header ();
print start_html "Este es mi stage3";
print "<center> \ n";

#Establezca la variable que mantiene el camino de la carpeta de imágenes

#Mostrar el contenido de bases de datos en caso de sencillo GET

if (REQUEST_METHOD () eq "GET")

(
abierto de producción, "products.dat";

#por debajo de estas tres líneas se encuentran en una forma separada para pedir fin

Imprimir qq ~ <= forma método "POST" action = "cgi-bin/stage3. cgi "> \ n ~;
print qq ~ <input type="submit" name="submit" value="CHECK OUT"> \ n ~;
print "</ form> \ n";

imprimir < "cuadro border = 1 bordercolor = blue> \ n";
while (<PROD>)

(
chomp;
@ campos = split / \ #/;
#Cada registro será una figura de la libre utilizado para la actualización de los registros
32
Imprimir 33 qq ~ \ t <tr> \ n ~;
Imprimir 34 qq ~ \ t \ t <TD> <formulario método = "post" action = "/ cgi-bin/stage3. cgi "> \ n ~;
Imprimir 35 qq ~ \ t \ t \ t <img src = "images / 1. jpg> $ campos [6] "> \ n ~;
Imprimir 36 qq ~ \ t \ t \ t <TD> <b> Producto ID: </ b> $ campos [0] <br> \ n ~;
Imprimir 37 qq ~ \ t \ t \ t <TD> <b> Nombre del Producto: </ b> $ campos [1] <br> \ n ~;
Imprimir 38 qq ~ \ t \ t \ t <b> Descripción: </ b> $ campos [2] <br> \ n ~;
Imprimir 39 qq ~ \ t \ t \ t <b> Factory: </ b> $ campos [3] <br> \ n ~;
Imprimir 40 qq ~ \ t \ t \ t <b> Precio: </ b> $ campos [4] <br> \ n ~;
Imprimir 41 qq ~ \ t \ t \ t <b> En stock: </ b> $ campos [5] <br> \ n ~;
Imprimir 42 qq ~ \ t \ t <TD> <br> \ n ~;
Imprimir 43 qq ~ \ t \ t \ t <input type="submit" value="Add a Card" name="submit"> <p> \ n ~;
Imprimir 44 qq ~ \ t \ t \ t <input type="hidden" name="key" value="$fields[0]"> <p> \ n ~;
Imprimir 45 qq ~ </ form> \ n ~;
46)
47 print "</ table> \ n";
48)