#!/usr/bin/perl -wuse 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.";