Select Code to Download

    @table_fields = "field1","field2","field3","field4");
    foreach $table_fields (@table_fields)
...
                {print"<td bgcolor=$bgclr><font size=\"-2\">$fields[8]
+</td>\n";}
                
                {print"<td bgcolor=$bgclr><font size=\"-2\">$fields[0]
+<a href=http://domain.com/cgi-bin/query_call.cgi?$fields[0]><img src=
+../images/red.gif></td>\n";}