Test Form

##

#!/usr/bin/perl -w
use strict;

my ($buffer, $pair, $var, $payload, $i);
my (@pairs);
my (%POST);

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
     ($var, $payload) = split(/=/, $pair);

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

     $POST{$var} = $payload;
}

foreach $i ($POST{Blah}) {
     print "Blah: ".$i."
\n";
}