################################################################################
# 以下為基本的 CGI 程式輸出入

#!/usr/bin/perl -w # 任何 Perl 程式的第一行
use strict; # 要求使用變數前要先宣告

# 輸入
use CGI; # 使用 CGI 模組
my $cgi = new CGI; # 產生一個 CGI 物件
my $nick = $cgi->param('nick'); # 取得名稱為 nick 的參數
my $color = $cgi->param('color'); # 取得名稱為 color 的參數

# 輸出
print "Content-type: text/html\n\n"; # HTTP 標頭
print "Hello World!"; # 任何合法的 HTML

################################################################################
# 以下為 HTML 表單

<form action="do" method="post">
	<input name="nick" type="text" /><br />
	<select name="color">
		<option value="blue">Boy</option>
		<option value="red">Girl</option>
	</select>
</form>

################################################################################
# 以下為一個比較複雜的 CGI 程式

#!/usr/bin/perl -w # 任何 Perl 程式的第一行
use strict; # 要求使用變數前要先宣告

open FH, 'res/member' or die; # 開檔
while (<FH>) { # 檔案中的每一行
	chomp; # 去掉最後的換行字元
	my ( $_name, $_nick ) = split "\t"; # 用 tab 分隔
	$_nick eq $nick and $name = $_name and last; # 比對暱稱
}
close FH; # 關檔
$_ = `/bin/cat _hello.html`; # 利用 Linux 指令讀檔
s/{name}/$name/g; # 取代
print "Content-type: text/html\n\n$_"; # 輸出