#!/usr/local/bin/perl

print "Content-type: text/plain\n\n";
foreach (sort keys %ENV) {
    print "$_ = $ENV{$_}\n";
}
eval { print Apache->request->pnotes('SUBPROCESS_ENV_TEST') . ' - ' .  Apache->request->subprocess_env('SUBPROCESS_ENV_TEST') };

