#!/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "GET") {$buffer = $ENV{'QUERY_STRING'};}
elsif ($ENV{'REQUENT_METHOD'} eq "POST")
    {read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});}

$bufferb = $buffer;
@forminputs = split(/&/, $bufferb);

foreach $forminput (@forminputs)
{
    ($name, $value) = split(/=/, $forminput);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-f0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $in{$name} = $value;
}