#!/usr/bin/perl
use strict; use warnings;
use URI::Escape;
print "Content-Type: text/html\n\n";
my $len = $ENV{CONTENT_LENGTH} // 0;
my $body = '';
read(STDIN, $body, $len) if $len > 0;
# Parse form-encoded body into key/value pairs
my @items;
for my $pair (split /&/, $body) {
my ($k,$v) = split /=/, $pair, 2;
$k = uri_unescape($k // '');
$v = uri_unescape($v // '');
push @items, [$k,$v];
}
print <<"HTML";
POST Request Echo
POST Request Echo
Message Body:
HTML
for my $it (@items) {
my ($k,$v) = @$it;
$v =~ s/&/&/g; $v =~ s//>/g; # escape
print "- $k: $v
\n";
}
print "
\n";