perl/test2までうごいた