encore une fois c'est un probleme partagé , ici mi perl pi html!

mon probleme c'est que ma boucle foreach ne s'affiche pas dans le code html. j'ai essayé differente facon d'intégrer le parcours de mon tableau pour son affichage mais c'a n'a pas l'air de fonctionner!voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
print "Content-type: text/html\n\n";
print <<"HTML";
<HTML>
<HEAD></HEAD>
<BODY bgcolor="#6699FF" link="#FF9966" vlink="#FF9966">
<u>
<h4>Result of your request</h4>
</u>
<TABLE BORDER="2" CELLPADDING="4"  CELLSPACING="6" WIDTH="50%" ><TR>
HTML
 
 
foreach my $tmp (@result)
{
	print "<TD align=center>$tmp</TD>";
}
 
 
print <<HTML2;
</TR>
</TABLE>
</BODY>
</HTML>
HTML2
 
exit;