this is for a perl unit test