my @fields = qw(buildall highlight preservedstate startallopen useframes useicons usetextlinks wraptext);

for my $field ( @fields ){
    my $value = $confquery->param( $field ) == 1 ? 1 : 0;
    print CONFIG_HEAD uc($field), "=", $value, "\n";
}