# Get POSTED info and stick it in $post_info.
read (STDIN, $post_info, $ENV {'CONTENT_LENGTH'} );

# split off fields and put them in @InfoArray
@InfoArray = split(/&/, $post_info);

# Remove variable= part and translate data into real chars
for ($n = 0; @InfoArray[$n]; $n++)
	{
	chomp; # remove newline
	($dummy, $temp) = split (/=/, @InfoArray[$n]);
	$temp =~ tr/+/ /;
	$temp =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	@InfoArray [$n] = $temp;
	}