課題用perlテスト