This Perl script generates ventricular meshes of the data in example 8117 with the desired circumferential and longitudinal resolution.