package Game::Hello; use Apache2::Const -compile => qw(OK); sub handler { my $r = shift; $r->content_type('text/html'); $r->print("Hello World!\n"); return Apache2::Const::OK; } 1;