sub Parse_Post_Form
{
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
	@pairs = split(/&/, $buffer) ;
	$valid = "[A-Za-z]\@\:\." ;
	foreach $pair (@pairs) 
	{
		($name, $value) = split(/=/, $pair) ;
		$value =~ tr/+/ / ;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg ;
		$value =~ s/[^$valid]/./go; 
		$FORM{$name} = $value ;
		if ($value =~ s/`//) {
	 	 &Show_Critical_Error ('No back ticks allowed!');
	}
	}
}