Select Code to Download

sub new {
    my ($class) = @_;
...
    $self->{_html} = $html if defined($html);
    return ( $self->{_html} );
}

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

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