Possible attempt to put comments in qw() list at ./stage3.cg

Hi all;

I 'm trying to create an online store interface.I'm new in cgi.I've been keep receiving below error messages and I don't know why?

Possible attempt to put comments in qw() list at ./stage3.cgi line 36.

Any idea what it might be causing this error

*****my code*****

#!/usr/bin/perl -wT
use CGI qw:standard/;
$velcome="This is my stage3";
$products="These are our products";
###Print headers
print header();
print start_html"This is my stage3";
print "<center>\n";

#Set the variable that holds the path to images folder

#Display database content in case of straightforward GET

if (request_method() eq "GET")

{
open PROD ,"products.dat";

#these below three lines are in a seperate form for checkout purpose

PRInt qq~<form method ="POST"action ="cgi-bin/stage3.cgi">\n~;
print qq~<input type="submit" name="submit" value="CHECK OUT">\n~;
print "</form>\n";

print <"table border=1 bordercolor=blue>\n";
while (<PROD>)

{
chomp;
@fields=split / \#/;
#Each record will be a self contained from used for updating records
32
33 print qq~\t<tr>\n~;
34 print qq~\t\t<td><form method="post" action="/cgi-bin/stage3.cgi">\n~;
35 print qq~ \t\t\t <img src="images/1.jpg>$fields[6]">\n~;
36 print qq~\t\t\t<td><b>Product ID:</b>$fields[0]<br>\n~;
37 print qq~\t\t\t<td><b>Product Name:</b>$fields[1]<br>\n~;
38 print qq~\t\t\t<b>Description:</b>$fields[2]<br>\n~;
39 print qq~\t\t\t<b>Factory:</b>$fields[3]<br>\n~;
40 print qq~\t\t\t<b>Price:</b>$fields[4]<br>\n~;
41 print qq~\t\t\t<b>In stock:</b>$fields[5]<br>\n~;
42 print qq~\t\t<td><br>\n~;
43 print qq~\t\t\t<input type="submit" value="Add to Card" name="submit"><p>\n~;
44 print qq~\t\t\t<input type="hidden" name="key" value="$fields[0]"><p>\n~;
45 print qq~</form>\n~;
46 }
47 print "</table>\n";
48 }