This section is from the "Practical mod_perl" book, by Stas Bekman and Eric Cholet. Also available from Amazon: Practical mod_perl
This module sends what may be helpful debugging information to the client, rather than to the error_log file.
This module specifies only the dump( ) method:
use Apache::Debug ( ); my $r = shift; Apache::Debug::dump($r, "some comment", "another comment", ...);
For example, if we take this simple script:
use Apache::Debug ( ); use Apache::Constants qw(SERVER_ERROR); my $r = shift; Apache::Debug::dump($r, SERVER_ERROR, "Uh Oh!");
it prints out the HTTP headers as received by server and various request data:
SERVER_ERROR
Uh Oh!
cwd=/home/httpd/perl
$r->method : GET
$r->uri : /perl/test.pl
$r->protocol : HTTP/1.0
$r->path_info :
$r->filename : /home/httpd/perl/test.pl
$r->allow_options : 8
$s->server_admin : root@localhost
$s->server_hostname : localhost
$s->port : 8000
$c->remote_host :
$c->remote_ip : 127.0.0.1
$c->remote_logname :
$c->user :
$c->auth_type :
scalar $r->args :
$r->args:
$r->content:
$r->headers_in:
Accept = image/gif, image/x-xbitmap, image/jpeg,
image/pjpeg, image/png, */*
Accept-Charset = iso-8859-1,*,utf-8
Accept-Encoding = gzip
Accept-Language = en
Connection = Keep-Alive
Host = localhost:8000
Pragma = no-cache
User-Agent = Mozilla/4.76 [en] (X11; U; Linux 2.2.17-21mdk i686) 
Continue to: