#!/usr/bin/perl
#----------------------------------------------------------
#Umm in trying this, lets see if it works...
#Trying it, doubt it works..
#----------------------------------------------------------
my $in;
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$in = $ENV{'QUERY_STRING'};
} else {
$in = ;
}
@Texts = ("text1","text2","text3","text4","text5");
print <Thing...";
print "Thing
";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "";
ENDhdr
sub alpha {
sort(@Texts)
@Texts = yay;
print "$yay";
}