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;
}