perl TDD: OOの前まで