#! /usr/bin/perl -w

use strict;
use CGI qw(param);
  #this has the head_foot() function
require "templates/standard_templates.pl"; 
use vars qw($head $foot);

my ($head,$foot) = head_foot();

if (param("page") eq "top") {
        page_top();
        exit;
} elsif (param("page") eq "bottom") {
        page_bottom();
        exit;
} else {
        page_main();
}


sub page_main {
        print <<EOF;
$head
<frameset rows="25,*">
    <frame src="test.pl?page=top" name="frametop">
    <frame src="test.pl?page=bottom" name="framebottom">
</frameset>
$foot
EOF
}


sub page_top {
        print <<EOF;
$head
<h1>TOP OF THE PAGE</h1>
$foot
EOF
}

sub page_bottom {
        print <<EOF:
$head;
<h1>THIS IS THE BOTTOM</h1>
$foot
EOF
}