read (STDIN, $temp, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $temp);
foreach $item(@pairs) {
  	($key, $value) = split(/=/, $item, 2);
        $value =~ tr/+/ /;
    	$value =~ s/%(..)/pack("c", hex($1))/ge;
    	$value =~ s/\t/ /g;
    	$value =~ s/\0//g;
}

##</code><code>##

$value =~ tr/+/ /;

##</code><code>##

$value =~ s/%(..)/pack("c", hex($1))/ge;

##</code><code>##

$value =~ s/\t/ /g;

##</code><code>##

$value =~ s/\0//g;