# here is the web page. package WebPageOne; sub new { bless {}, shifth; } sub html { print < This is a web page. } 1; ##

##

#!/usr/bin/perl
# webpageone.cgi

use WebPageOne;

print "content-type: text/html\n\n";

my $x = WebPageOne->new()

print $x->html;

##

##

package ModPerlPageOne;

use Apache2::Const -compile => qw(OK);

sub handler
{
    my $r = shift;
    my $x = WebPageOne->new();

    $r->send_http_header('text/html');
    
    $r->print $x->html;

    return OK;
}