#!/usr/bin/perl # # # # # # # # $register_file = "reg.txt"; require "cgi-lib.pl"; &ReadParse; open (FILE,"$register_file"); @INFO = ; close(FILE); print "Content-type: text/html\n\n"; print "\n"; print "Registration List\n"; print<

[Home] [Contents] [Gallery] [News] [About]

Registration

ENDOFTEXT foreach ( @INFO ) { print "$_"; print "
\n

\n"; } print "\n"; exit;