add tulip generating perl code