#!/usr/bin/perl
use CGI qw(param);
my $query = new CGI;
if ($query->param("text1")){
my $one = $query->param("text1");
my $two = $query->param("text2");
my $three = $query->param("text3");
my $four = $query->param("text4");
my $five = $query->param("text5");
my @texts;
($one,$two,$three,$four,$five) = @text;
foreach (sort @text){
print "$_ \n\n";
}
}else{
print qq~
Alphabetical Sorter
Alphabetical Sorter.
~;
}