全体的にみ直し
perlデバッグ用にスニペット追加