Cgi入門教程之：9 BODY部分
BODY部分 
#*****************BEGIN BODY************* 
print "<h1>Thank you for filling out the form</h1>"; 
$firstname = $value[0]; 
$lastname = $value[1]; 
$email = $value[2]; 

print "Your first name is $firstname<BR>"; 
print "Your last name is $lastname<BR>"; 
print "Your e-mail is $email<BR>"; 

#***************END BODY****************** 
--------------------------------------------------------------------------------
對于Perl，我們需要知道：

每行以分號結束。 
變量以$開始。 
第一行很直接 - print將打印隨后的內容到屏幕上。要打印的內容必須在引號內，其中可以包含HTML標記符。
readparse子過程自動把HTML FORM中的內容放入一個稱為value的數組中。這樣，第一個文本框中的內容是$value[0]，第二個文本框中的內容是$value[1]，等等 - 數組下標以0開始。
第二行我們執行命令：
$firstname = $value[0]; 
這個語句創建一個稱為$firstname的新變量，把$value[0]的內容賦給它。這意味著在HTML FORM中第一個文本框中輸入的信息將包含在變量$firstname中。
第三行和第四行與此類似：
$lastname = $value[1]; $email = $value[2]; 
很明顯，這兩行分別把第二個和第三個文本框中的內容賦給變量$lastname和$email。
程序的最后三行把文本和變量打印到屏幕上。
print "Your first name is $firstname<BR>"; 
print "Your last name is $lastname<BR>"; 
print "Your e-mail is $email<BR>"; 
注意變量被包含在雙引號中。在其它語言，如javascript中，我們必須顯式的連接文本和變量。在Perl中，當它看到$時，就會使用變量的內容。不錯，是吧？但是要注意，只有雙引號才能這樣，單引號只是從字面上引用其中的內容。