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