print header();

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
	
	read (STDIN, $input, $ENV{'CONTENT_LENGTH'}) || print "could not execute query <br>";
	
	
	print "got into POST - $input $ENV{'CONTENT_LENGTH'} <br>" . <STDIN>;					            
        
        @pairs = split(/&/, $input);
	
}