#!/usr/bin/perl

use strict;
use CGI qw(:standard);

my $query = new CGI;

if (param('USE')) {print header; print 'Updating the LEFT Frame'; }


print header();

if ( defined $query->param('left') ) {
    print start_html();
    print $query -> submit({-name=>'USE'});
    print h1("Left");
    print end_html();
}
elsif ( defined $query->param('right') ) {
    print start_html();
    print h1("Right");
    print end_html();
}
else {
    my $script = $ENV{'SCRIPT_NAME'};
    print frameset(
            {-cols => "25%,75%"},
            frame({-name => "left",  -src => "$script?left=1"}),
            frame({-name => "right", -src => "$script?right=1"})
          );
}