A perl project for generating test data