if ($ENV{REQUEST_METHOD} eq 'POST') {
	read(STDIN,$input,$ENV{'CONTENT_LENGTH'});
	$input =~ s/%(..)/pack("C",hex($1))/eg;
	@input = split(/&/, $input);
	#UNCOMMENT FOR DEBUGGING
	#foreach $i (@input) { print STDERR "POST input: $i \n";}
    } elsif ($ENV{REQUEST_METHOD} eq 'GET') {
	$in = $ENV{'QUERY_STRING'};
	$in =~ s/%(..)/pack("C",hex($1))/eg;
	@input = split(/\+/,$in);	
	#UNCOMMENT FOR DEBUGGING
	#foreach $i (@input) { print STDERR "GET input: $i \n";}
    } else {
	&error("Invalid input, exiting!");
	return;
    }