#!/usr/local/bin/perl $|=1; use CGI; CGI::ReadParse(*in); $q = new CGI; #------------------------------ # Author : Januse Chou (邱銘彰) e-mail :u3350829@cc.ncu.edu.tw #------------------------------ my $filename="GuestWord.txt"; open(INPUT,"$filename")||die "Could not open file $filename:$!\n"; print "content-type: text/html \n\n"; print <

Welcome to our Guest Book! Pleaseleave your message
	歡迎光臨【文化研究學會】留言板。有話要說嗎？有問題或建議嗎？請移至文化研究學會新網址：http://csat.org.tw 別客氣，請用力給他留言下去!

OOP while() { ##chop; print "$_"; } print "\n

"; close(INPUT);