Mocking framework for perl