sub checkbox {
        my ($name, $value, $sel) = @_;
        my $checked = ($value eq $sel) ? "checked" : "";

        print <<EOT
    $value: <input type="checkbox" $checked name="$name" 
        value="$value">&nbsp;&nbsp;
    EOT
        return ($value eq $sel);
    }