print "<FORM NAME="info" action="../../../../cgi-bin/decision.cgi" method="POST"> /n"; 
print "<select NAME="clown"> /n"; 
foreach $ckey(sort (keys(%DECISION))) { 
print "<option>$ckey /n"; 
} 
print "</select> /n"; 
print "</FORM> /n"; 

##</code><code>##

<FORM NAME="info" action="../../../../cgi-bin/clotdecisions.cgi" method="POST"> 
<select NAME="clown"> 
<option>b01 
<option>b02 
<option>b03 
</select> 

##</code><code>##

<FORM NAME="info" action="../../../../cgi-bin/clotdecisions.cgi" method="POST"> 
<select NAME="clown"> 
</select> 

##</code><code>##





##</code><code>##

tie %CLOTDECISIONS, 'DB_File', "$fdbl[2]clotdes$typedb";