sub new {
    my ($class) = @_;

    #call the constructor of the parent class, Person.
    my $self = $class->SUPER::new();
    $self->{_name}   = undef;
    $self->{_template} = undef;
    $self->{_html}	= undef;
    bless $self, $class;
    return $self;
}
sub html{
    my ( $self, $html ) = @_;
    $self->{_html} = $html if defined($html);
    return ( $self->{_html} );
}