Register online

#!/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 ##

##


my $file = "../frame.txt";
if(-s ($file) >0) 
	{
#    	open(FILE, '<', $file) or die $!;
#    	while() {
#         		print $_, "\n";
#     			}
#   	close(FILE);
	}
else
{
    print "$file contains no data\n";
}