はじめまして、中川と申します。
表示されるだけのPerlのプログラムをしている限りなのですが、
例えばindex.cgi?mode=adminのようにサブルーチンを使って別ページとして表示したいのです。
いろいろなPerlスクリプトを拝見して勉強はしていますがどうもうまくいきません…。
どこかが間違っているのかな…とは思いますが。
ご教授お願いいたします。
ソースは
http://tgs.mine.nu/cgi/index.txt
フォームをインプットするHTML
http://tgs.mine.nu/cgi/input.html
CGI
http://tgs.mine.nu/cgi/index.cgi
です。

--- index.txt	Tue May 20 02:29:51 2003
+++ index.new.txt	Tue May 20 02:29:15 2003
@@ -17,7 +17,7 @@
 # メイン？
 &denv;
 if ($buffer){ &dcode; }
-if (mode eq 'admin') { &admin; }
+if ($FORM{'mode'} eq 'admin') { &admin; }
 &index;
 &foot;
 exit;
@@ -94,10 +94,11 @@
 
 # 第一の小説
 sub admin {
-	&header;
+	&head;
 print <<"_HTML_";
 あなたのお名前は$FORM{'name'}$FORM{'name2'}さんです。<BR>
 テストー。
 _HTML_
 	&foot;
+	exit;
 }

お返事が遅くなり申し訳ありません。
やまだ様、レスありがとうございます。
やまだ様がおっしゃったとおりに設定しましたら無事表示することができました。
どうもありがとうございました。