sub export_form_vars {
        my @input = @_;
        my $html = "\n";
        foreach my $key (@input) {
                my @vars =  param $key;
                foreach my $val (@vars) {
                        $val = escapeHTML($val);
                        $html .=  qq { <input type=hidden name="$key" value="$val">\n };
                }       
        }
        return $html
}