罪罰改造板２/307

open (DB,">>$histfile") || &error("open error:$histfile",1);
	print DB $cdat;
	close(DB)		or die "Can't close   : $!";
}
# 統一時は石碑に刻む
   if($touitu_flag==1){
     &stone_write;
   }
sub stone_write{
  open (DB2,">>$stonefile") || &error("open error:$stonefile",1);
  print DB2 $cdat;
  close(DB2)               or die "Can't close   : $!";
}