DBの初期化をperlのtengを使って行うように変更