Select Code to Download

if ($query->param('submit1')){
    my $family = $query->param('family');
...
    print qq|SC: $SC<br>|;
    print qq|AT: $AT<br>|;

<input type="checkbox" name="TB" value="TB">Trypanosoma brucei<br>
<input type="checkbox" name="LM" value="LM">Leishmania major<br>
<input type="checkbox" name="HS" value="HS">Homo sapiens<br>
<input type="checkbox" name="SC" value="SC">Saccharomyces cerevisiae<b
+r>
<input type="checkbox" name="AT" value="AT">Arabidopsis thaliana<br>