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";