#!/usr/bin/perl
print "content-type:text/html\n\n";
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use warnings;
%FORM= CGI::Vars;
print<Register online
html1
open(frame,'/home/www/xxxxxxxxxxxxxxxxxxxx.org/frame.txt') or die "error is: $!";
while()
{
print "$_\n";
}
close(frame);
print<
html2
open(frame_left,'/home/www/xxxxxxxxxxxxxxxxxxxxxxxx.org/local_frame_left.txt') or die "error is $!";
while()
{
print "$_\n";
}
close(frame_left);
print<