Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl

...
print start_html();
print "hello world\n";
print end_html;
  2. or download this
    <Location /perl>
  SetHandler perl-script
  PerlHandler Apache::OutputChain Apache::NavBar Apache::Registry
  Options +ExecCGI
</Location>
  3. or download this
    sub handler {
  my $r = shift;
...
  warn "CT: ", $r->content_type, "\n";
  $r->content_type eq 'text/html' || return DECLINED;
  warn "OK text/html\n";
  4. or download this
    print header(-type=>"text/html");