新規キャラクターが登録したとき、ついでに自動バックアップを行う。
logフォルダにあるファイルを、backupフォルダの下に日付フォルダを作成し、そこにコピーするだけ。
改良型にこれがある。サブフォルダもバックアップしたいor圧縮もしてほしいならそっち。

・定期的な新規登録者がいないEBSなら、バックアップのタイミングを変えた方がいいかも。
・「backup」フォルダのパーミッションに注意。ついでに名前も変えた方がいいかも。
・無限にバックアップし続けるので、サーバの容量に注意。
・所詮は同サーバ上でコピーするだけなので、たまにはローカルに落とそう。

sub BACKUP(){
	use File::Copy;
	mkdir("./backup/$DATE");
	my $BACKUP_DIR = "./backup/$DATE";
	opendir(DIR, "$LOG_FOLDER");
		while($file = readdir(DIR)){
			my $file1 = "$LOG_FOLDER/$file";
			my $file2 = "$BACKUP_DIR/$file";
			copy("$file1","$file2");
		}
	closedir(DIR);
}

	&BACKUP();