perl TDD: first OO test