#!/usr/bin/perl -w
use strict;

use CGI qw/:standard :netscape/;
print "Content-type: text/html\n\n";

my $root = $ENV{ 'DOCUMENT_ROOT' };
my $host = $ENV{ 'HTTP_HOST' };
#$host = 'mysite.com.au';
my $page = 'index.html';

    print title('Title'),
    frameset({-rows=>'40%,60%'},
	     frame({-name=>'left',-src=>"http://www.$host/start.html"}),
	     frame({-name=>'right',-src=>"http://www.$host/$page"})
	     );