#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';

use FCGI;

my %env;
my $req = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%env);

while ($req->Accept() >= 0) {
#my $fh = $req->input;
my $in = do { local $/; <STDIN> } // '';
#my %env = %{$req->environment};
my $env = join '', map { "$_=$env{$_}\n" } sort keys %env;
    print <<EOT;
Content-Type: text/plain

$env
$in
EOT
}