package Apache::HandlerTest;
sub handler { my $r = shift; # Apache session object $r->content_type('text/html'); $r->send_http_header; $r->print( "Hello, world." ); } 1;
<Location /handlertest> SetHandler perl-script PerlHandler Apache:HandlerTest: </Location>