#!/usr/bin/perl # result_guest.cgi #To avoid automatic adding by "Reload", a seperate script is made for the display. use CGI qw(:standard); # read data file $temp=""; open (INFILE, "guest.txt"); $line=; while ($line ne ""){ $temp=$temp.$line; $line=; } close INFILE; # HTML output print header; print < Carth Online Visitor Comments

Carth Online Visitor Comments

Back to Guest Book Page
$temp
Back to Guest Book Page EOF