use CGI qw(:all);
print header, start_html("alphabetical sorter"), h1("alphabetical sorter");
if (param) {
  for my $key (sort param) {
    print strong($key), " = ", join(", ", param($key)), br;
  }
} else {
  print start_form;
  print textfield($_), br for 1..5;
  print submit, end_form;
}
print end_html;