SetHandler perl-script
PerlResponseHandler Some::Module

##</code><code>##

package Some::Module;

use strict;
use warnings;

use CGI;

use Apache::RequestRec ();
use Apache::RequestIO ();
use Apache::Const -compile => qw(OK);

# Log the loading of this handler
warn("Reloading the handler.\n");

# Code snipped to create a DBI object
# Code snipped to create a Cache::File object
# Code snipped to create a HTML::Template object

#----------------------------------------------------------------------
# Master apache query handler
#----------------------------------------------------------------------
sub handler {
	my $r = shift;
	my $c = new CGI;

	$r->content_type('text/plain');
	print $c->param('output');

	return Apache::OK;
}