# some constants:

sub common_heading {

    my $html;

    $html .= header();

    open(IN,"includes/html_head") or die;
    foreach(<IN>){$html.=$_;}
    close(IN);

    open(IN,"includes/html_begin");
    foreach(<IN>){$html.=$_;}
    close(IN);

    return $html;
}

sub common_footer {
    my $html;

    open(IN,"includes/html_end");
    foreach(<IN>){$html.=$_;}
    close(IN);

    return $html;
}

1.
