use CGI;
$datafile = "datafile.dat";
my $q = new CGI;
$url = $q->url(-base);
$refer = $ENV{HTTP_REFERER};

read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
$buffer =~ tr/+/ /;
$buffer =~ s/\r/ /g;
$buffer =~ s/\n/ /g;
@pairs = split(/&/,$buffer);
foreach $pair(@pairs){
($key,$value)=split(/=/,$pair);
$formdata{$key}.="$value";
}

$search=$q->param('category');

open(INFO, "$datafile"); # Open db for reading
@array=<INFO>;
close (INFO);

foreach $line (@array){
if ($line =~ /$search/){
($company,$email,$member)=split(/\|/,$line);
@array = sort(@array); 

print <<End_of_line;
$company
End_of_line