package Apache::Hello; use strict; use Apache::Constants qw(:common); sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; my $host = $r->get_remote_host; $r->print(<

Hello There

Hello $host

Who would take this book seriously if the first example didn't say "hello world"? END return OK; } 1; __END__