#!/usr/local/bin/perl
use strict 'vars';
use CGI;
my $FILEDIR = "../YYYYY";
my $TITLE = "★書込★ 注意！";
my $CGIURL = "http://cgi.biglobe.ne.jp/XXXXX/cgi-bin/save2.cgi";
my $form = new CGI;
my $file = $form->param('text');
my $f = $FILEDIR . "/" . $file; ##コメント "." は結合
my $err = 0;
if( -e $f ){ ## $fが存在したら
unless( open( F, "<$f" ) ){ ##コメント "<":読込 ">":書込 ">>":append
$err++;
}
}else{
$err++;
}
print "Content-Type: text/html\n\n";
print <<"EOF"; ##コメント EOF までそのまま出力する。ただし、変数は置き換えられる
$TITLE
EOF
close F;
1; ##コメント return(1):正常終了 の意味