package My::Page;

use strict;
use vars qw(@ISA);
use My::PageBase ();
@ISA = qw(My::PageBase);

sub body {
    my($self, $r) = @_;
    $r->print("<p>This is My homepage<p>"); 
}

1;

__END__