#!/usr/bin/perl
#
use strict;
use warnings;
use Apache2::RequestUtil;
use Apache2::RequestRec;

$| = 1;
print "Content-type: text/plain\n\n";

my $r = Apache2::RequestUtil->request;
print $r->as_string();