sub handler { my $r = shift; my $req = Apache2::Request->new($r); my $name = $req->param('name') || 'John Doe'; $r->content_type('text/html'); $r->print(<... EOHTML return OK; }