Select Code to Download

sub print_form() {

...
            $q->param(-name=>"$key", -value=>"$real_fields{$key}");
        }
    }

elsif ($type =~ /check/) {
...
        print checkbox(-name=>"$name", -value=>$_, -label=>"$hash{$_}"
+);
        }
        print br();