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

##</code><code>##

	my $template = eval { new Template(); } or die ($@);
	$template->header($html, $header, $time);	

##</code><code>##

sub header {
	my $html 	= shift;
	my $header 	= shift;
	my $time	= shift;
	open (OUT,">$html") or die ("No html file: $!\n");