# *******************************************************************
# 
# *******************************************************************
$Method = $ENV{'REQUEST_METHOD'};
$Method =~ tr/a-z/A-Z/;
if ( $Method eq "POST" ) {
	read(STDIN, $Form, $ENV{'CONTENT_LENGTH'});
	@Fields_Data = split(/&/, $Form);
}
else {
	$QueryString = $ENV{'QUERY_STRING'};
	@Fields_Data = split(/&/, $QueryString);
}
foreach $Field_Data ( @Fields_Data ) {
	($Name, $Value) = split(/=/, $Field_Data);
	$Value =~ tr/+/ /;
	$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	if ( $Method eq "POST" ) {
	 	$Form{$Name} = $Value;
	}
	else {
	 	$QueryString{$Name} = $Value;
	}
}