#********* END BODY********************
　

• 拷贝以上代码到template.txt文件的BODY部分。
• 保存为getlog.cgi。
• 把getlog.cgi用FTP上传到服务器的perltour文件夹中。
• 在Unix提示符下，进入perltour文件夹，敲入chmod a+rx getlog.cgi。
• 在浏览器中打开http://your.server.name/perltour/getlog.cgi，屏幕将显示所有用户输入的信息。

这段代码与前面的正相反，它从log文件中读信息。
　

open(LOGFILE, "<guestbook.log");
　

打开guestbook.log文件进行输入工作。
　

@entries=<LOGFILE>;
　

把文件的内容输入到数组@entries中。
　

print "<BODY bgcolor=beige>\n"
　

;
print "<TABLE>\n";
　

写HTML文件的起始部分。
　

foreach $line(@entries){
　

对于数组@entries中的每一行。
　

@fields=split(/::/,$line);
　

用::分割$line到数组@fields中。
　

print "<TR><TD>$fields[0]$fields[1]<TD>$fields[9]\n";
}
　

在表格中打印数组@fields中的信息。
　

print "</TABLE>\n";
　

表格结束。