#! /usr/local/bin/perl
#
# id=form1r.cgi
#
# ＦＯＲＭ１．ＣＧＩで書き込んだファイルを読み表示する
# update. 00.2.9
# ファイル名
$file = "/dialup/chichibu/cgi-bin/form1.dat";
# ブラウザに出力
print "Content-type: text/html\n\n";
print "\n\n";
print "ファイル処理（１）\n";
print "\n\n";
print "ファイルの内容を表示します
\n";
print "
";
# １．ファイルを読み出しモードでオープン
open(DATA,"$file");
# ２．読み込み ・・・ 命令により、１行のみ読み込みします
$line = ;
print $line ;
# ３．ファイルを閉じます
close(DATA);
print "\n\n";
################## end of script ##################