package Apache2::Hello;
use strict;
use warnings;
use Apache2::RequestRec(); # for $r->content_type
use Apache2::RequestIO(); # for $r->puts
use Apache2::Const qw/:common/;
use Apache2::Reload;
sub handler {
my $r = shift;
my $time = scalar localtime();
my $package = __PACKAGE__;
$r->content_type('text/html');
warn 'darn';
$r->puts(<<"END");
Hello
Hello from $package! The time is $time.
END
return Apache2::Const::OK;
}
1;