Checkbox

Hej, jeg bruger denne stump perl script i mit program.
Det den gør er at skrive nogle checkboxe som man så kan krydse af.

Box\'ene er ALTID tomme og kan let rettes til afkrydsede, men det jeg ønsker er lidt kode som skriver teksten \"klik her for at afkrydse alle\"
eller noget i den stil.

Her er det af koden der laver box\'ene:

unless ($NoBanners) {
print \"<TD><SMALL><FONT $fontspec>\";
foreach $setzone (sort (@zones)) {
print \"<INPUT TYPE=CHECKBOX NAME=zone \";
print \"VALUE=\\\"$setzone\\\"\";
if ($zone =~ /\\s$setzone\\s/) {
print \" CHECKED\";
}
print \">$setzone\\n<BR>\";
}
print \"<TR><TD VALIGN=TOP><SMALL><STRONG><FONT COLOR=BLUE>$text{\'5300\'}:</FONT></SMALL></TD>\";
print \"</FONT></SMALL></TD></TR>\\n\";
print \"<TR><TD></TD>\";
}
print \"<TD><SMALL><FONT $fontspec>\";
$displayzone = \"\\+\".$displayzone.\"\\+\";
foreach $setzone (sort (@zones)) {
print \"<INPUT TYPE=CHECKBOX NAME=displayzone \";
print \"VALUE=\\\"$setzone\\\"\";
if ($displayzone =~ /\\+$setzone\\+/) {
print \" CHECKED\";
}
print \">$setzone\\n<BR>\";
}