#!/usr/bin/perl -w
use strict;
use Apache;
use Apache::Constants ':common';
use Apache::Debug ();

my $r = Apache->request();

Apache::Debug::dump($r, SERVER_ERROR, "Uh Oh!");