perl TDD: add tests
perl TDD: add tests
perl TDD: add tests
perl TDD: refactor tests
perl TDD: refactor tests