Select Code to Download

read (STDIN, $temp, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $temp);
...
        $value =~ s/\t/ /g;
        $value =~ s/\0//g;
}

$value =~ tr/+/ /;

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

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

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