Perl Drawing of Cylinder

Hi,I had faced some problem drawing cylinder using perl the latest version. could anyone guide me? thanks!

my $quadratic;
$quadratic = gluNewQuadric ();
#gluQuadricNormals ( $quadratic, &GLU_SMOOTH );
gluQuadricTexture ( $quadratic, &GL_TRUE );
gluCylinder ( $quadratic, 1.0, 0.0, 3.0, 32, 32 );