$nm = $in{'nm'}; $sei= $in{'sei'}; $camp=0; &dat_write; $com="登録ありがとうございます。<br>あなたの名前は $nm でIDは$id でPWは $pw です。<br>ゆっくり楽しんでくださいね。"; $anm=$nm; require "./letter_system.cgi"; ®ist_system; chmod($chmod,"$usrdata$id\.cgi"); print "Content-type: text/html\n\n"; print <<"EOM"; |