PerlからDBの初期化をするように変更