if ($XHTML) { 
   push @elements, CGI::label($labelattributes, qq(<input type="$box_type" name="$name" value="$_" $checkit$other$tab$attribs$disable/>$label)).${break}; } else {

##</code><code>##

 if ($XHTML) {
   my $labelattr = ref $labelattributes eq 'HASH' ? $labelattributes->{$_} : $labelattributes ; 
push @elements, CGI::label($labelattr,