my $use_buildall = $confquery->param('buildall');
       my $use_highlight = $confquery->param('highlight');
       my $use_preserved = $confquery->param('preservedstate');
       my $use_startallopen = $confquery->param('startallopen');
       my $use_frames = $confquery->param('useframes');
       my $use_icons = $confquery->param('useicons');
       my $use_textlinks = $confquery->param('usetextlinks');
       my $use_wraptext = $confquery->param('wraptext');
    if ($use_buildall eq '0') {
           print CONFIG_HEAD ("BUILDALL = 0\n")
    } elsif ($use_buildall eq '1') {
        print CONFIG_HEAD ("BUILDALL = 1\n")
    }
    if ($use_highlight eq '0') {
               print CONFIG_HEAD ("HIGHLIGHT = 0\n")
       } elsif ($use_highlight eq '1') {
               print CONFIG_HEAD ("HIGHLIGHT = 1\n")
       }
       if ($use_preserved eq '0') {
               print CONFIG_HEAD ("PRESERVESTATE = 0\n")
       } elsif ($use_preserved eq '1') {
               print CONFIG_HEAD ("PRESERVESTATE = 1\n")
       }
       if ($use_startallopen eq '0') {
               print CONFIG_HEAD ("STARTALLOPEN = 0\n")
       } elsif ($use_startallopen eq '1') {
               print CONFIG_HEAD ("STARTALLOPEN = 1\n")
       }
       if ($use_frames eq '0') {
               print CONFIG_HEAD ("USEFRAMES = 0\n")
       } elsif ($use_frames eq '1') {
               print CONFIG_HEAD ("USEFRAMES = 1\n")
       }
       if ($use_icons eq '0') {
               print CONFIG_HEAD ("USEICONS = 0\n")
       } elsif ($use_icons eq '1') {
               print CONFIG_HEAD ("USEICONS = 1\n")
       }
       if ($use_textlinks eq '0') {
               print CONFIG_HEAD ("USETEXTLINKS = 0\n")
       } elsif ($use_textlinks eq '1') {
               print CONFIG_HEAD ("USETEXTLINKS = 1\n")
       }
       if ($use_wraptext eq '0') {
               print CONFIG_HEAD ("WRAPTEXT = 0\n")
       } elsif ($use_wraptext eq '1') {
               print CONFIG_HEAD ("WRAPTEXT = 1\n")
       }

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";
}