Have a patch for the CGI.pm module

if ($XHTML) { 
   push @elements, CGI::label($labelattributes, qq(<input type="$box_t
+ype" name="$name" value="$_" $checkit$other$tab$attribs$disable/>$lab
+el)).${break}; } else {
[download]

to

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