#!/usr/bin/perl -w
use CGI qw(param);
use diagnostics;
use strict;
my $query = new CGI;
if ($query->param()) {
foreach $key (sort {$a cmp $b} $query->param) {
print "$key = ";
my @values = $query->param($key);
print join(", ",@values),"
\n";
}
}else{
print "Content-type:text/html\n\n";
print qq~
Alphabetical Sorter
Alphabetical Sorter.
~;
}