罪罰/自動通信

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