#!/usr/local/bin/perl

print "Content-type: text/plain\n\n";
read(STDIN, $input_buffer, $ENV{'CONTENT_LENGTH'});
@name_values = split(/&/, $input_buffer);
print "Name    Value\n";
foreach $name_value_pair (@name_values)
{
    ($name, $value) = split(/=/, $name_value_pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    print "$name $value\n";
}

print "\n";