require("cgi-lib.pl"); &ReadParse; print "Content-type: text/html\n\n"; print "<title>CGI Perl</title>\n"; print "<h1>謝謝您的登錄以下資料</h1>\n"; print "<hr><pre>\n"; print "職業: $in{'job'}\n"; print "年齡: $in{'age'}\n"; print "性別: $in{'sex'}\n"; print "電子信箱: $in{'email'}\n"; print "建議: $in{'comments'}\n"; print "</pre><hr>\n";