#!/usr/bin/perl print "content-type:text/html\n\n"; use CGI; use strict; use warnings; print< Register online html1 open(frame,'../frame.txt'); while() { print "$_\n"; } close(frame); print<
html2