#!/usr/bin/perl -w

use strict;

use v5.10;

say "Content-type: text/plain\n";

say "Debug information begins:\n===========================\nEnvironment:\n===========================";

for (sort keys %ENV) {

$ENV{$_} = "[CENSORED]" if (/DOCUMENT_ROOT/ || /SCRIPT_FILENAME/ || /SERVER_SOFTWARE/);

say "$_: $ENV{$_}"

}

say "===========================\nPOST content (REQUEST_METHOD ignored):\n===========================";

say <>;

say "===========================\nDebug information ends.";