package TestHandler;

use strict;

use Apache::Constants qw(:common);

sub handler : method {
  my($class, $r) = @_;

  $r->content_type('text/plain');
  $r->send_http_header;
  $r->print( qq(
      Class: $class
      Perl: $]
      mod_perl: $Apache::VERSION
    )
  );

  return OK;
}

1;

##</code><code>##

<Location /test>
   SetHandler      perl-script
   PerlHandler     TestHandler
</Location>

##</code><code>##

      Class: TestHandler
      Perl: 5.006001
      mod_perl: 1.27