#!/usr/local/bin/perl

use strict;
use CGI qw/:standard/;

print header();
print start_html();
print "hello world\n";
print end_html;

##</code><code>##

<Location /perl>
  SetHandler perl-script
  PerlHandler Apache::OutputChain Apache::NavBar Apache::Registry
  Options +ExecCGI
</Location>

##</code><code>##

sub handler {
  my $r = shift;
  warn "OK handler\n";
  warn "CT: ", $r->content_type, "\n";
  $r->content_type eq 'text/html' || return DECLINED;
  warn "OK text/html\n";

##</code><code>##

print header(-type=>"text/html");