my @classes = param('class');
  foreach my $class (@classes) {
  print "$class <br>\n";
}