perlのワーカ挙動確認用