JUnit実践入門の練習問題を perl でやってみた