新規キャラクターが登録したとき、ついでに自動バックアップを行う。
logフォルダにあるファイルを、backupフォルダにzipで圧縮するだけ。ファイル名は日時。
これの類似品。

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

sub BACKUP(){
	use Archive::Zip;
	my $zip = Archive::Zip->new();
	$zip->addTree("$LOG_FOLDER");
	$zip->writeToFileNamed("./backup/$DATE.zip");
}

	&BACKUP();