請填寫以下問卷

職業         
年齡         
性別          男
              女
電子郵件地址 
建議

Perl 的原始程式

print "Content-type: text/html\n\n";

if ($ENV{'REQUEST_METHOD'} eq 'GET') {
   print "GET\n";
   print "GET: ",$ENV{'QUERY_STRING'};
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
   print "POST\n";
   print "POST: ",;
} else {
   print "I couldn't handle.\n";
}