open(FILE, "$data_file") || die("Could not open file: $!");  
		   @param=<FILE>;
		   close<FILE>;
		   	foreach $line(@param){
	  		chomp ($line);
	  		print "<br><br><br><br><b>The current list of the parameter <font color=#FF6600>$line</font></b><hr>\n";
	  		my $i="$line.txt";
	  		my $new_param="/data/aww/cgi-bin/$i";  #for each line represents a parameter and for each parameter I open coresponding text file with it's values
	  		print "<table>\n";
			print "<select multiple name=\"$line\" size=4>\n";
				open(FILE1, "$new_param") || die("Could not open file: $!");  
		   		@val=<FILE1>;
		   		close<FILE1>;
		   
		   			foreach $newline(@val){
	  	   			chomp ($newline);
	  				print "<option value=\"$newline\">$newline\n";
								}
	  				print "</select></td></tr></table>\n";
					print "<input type=\"hidden\" name=\"$line\" value=\"$newline\">";
					}

##</code><code>##

State
Code
Server