package HelloWorld; # HelloWorld.pm - I'm alive! # Eric Lease Morgan # August 19, 2010 - first investigations # require/use use Apache2::Const -compile => qw( OK ); use CGI; use strict; # main sub handler { # initialize my $r = shift; my $html = ''; my $cgi = CGI->new; # do the work $html = &content; $r->content_type( 'text/html' ); $r->print( $html ); # done return Apache2::Const::OK; } # a simple page sub content { return < Hello, World!

Hello, World!

It is nice to meet you.

EOF } 1; # return true or die